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The conceptual phase of a helicopter design 
includes comparison of configurations which will meet 
the specified performance requirements. To perform 
this comparison, the designer must have the proper 
tools at hand. This thesis presents an interactive 
computer program for the conceptual design of tandem 
rotor helicopters. It is intended to complement the 
existing single rotor helicopter design program written 
for the Helicopter Design course, AE-4306 , taught at 
the Naval Postgraduate School, Monterey, California. 

This program manages the myriad of interrelated 
parameters by prompting for input, providing the 
opportunity for changes, and displaying the results. 
This relieves the (student) designer of the tedious 
calculations and bookkeeping, thus allowing time for a 
more thorough analysis of the design. 
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I. INTRODUCTION 



A. BACKGROUND 

Helicopter Design, AE-4306 , as taught at the Naval 
Postgraduate School requires the "Conceptual Design" of 
a specific mission-capable helicopter as one of the 
course requirements. 

Conceptual Design is the first of five phases where 
configurations are compared; cost, weight and size are 
estimated; feasibility is studied; and then follow-on 
recommendations are made [Ref. 1]. It is the first of 
these, comparison of configurations, which prompted 
this thes i s . 

Tandem rotor helicopters have been successfully 
employed since March of 1945 when the PV-3 Dogshlp was 
developed for the U.S. Navy. As with all else in 
aviation, humble beginnings give way to technology and 
ingenuity, so that by the mid 1960’s, Boeing Vertol had 
developed the H-46 Sea Knight and H-47 Chinook. Both 
are still currently in use, flying today in all four 
U.S. armed services, various commercial operations 
(logging, oil production, etc.) as well as servicing in 
other countries such as Japan, Canada, Great Britain 
and Sweden . 

To the casual observer the appeal of the tandem 
rotor scheme is obvious--both rotors provide thrust in 
the correct direction (up) and therefore a fraction of 
the power isn’t wasted pushing the helicopter sideways, 
as in the tail rotor configuration. Although somewhat 
true, this observation does require clarification. 
Tall rotors typically absorb 10 to 20 percent of the 
engine power required to hover [Ref. 2]. This 
decreases in forward flight because of translational 
lift effects which produce a decrease in main rotor 



6 



torque. This provides a slight reduction in tail rotor 
power. Tandems also have a power penalty due to 
interference effects found where the two rotor disks 
overlap. Analytically , this is accounted for by 
correcting induced power with a "rotor interference 
factor", K, which has been determined empirically to be 
a function of the rotor shaft spacing ratio [Ref. 3 and 
Ref. 4]. For forward flight, another factor must be 
included, K u , the "induced power correction factor". A 
combination of these factors results in losses 
comparable to those of the tail rotor configuration, 
depending on the regime of flight. It is noticeable 
that tandems appear better in hover and low forward 
velocities with the single rotor having advantages at 
medium to high forward velocity. However, these 

apparent respective advantages are not clearly defined, 
nor are they easily quantified. 

Reference [5] is an interactive program for 
conceptual helicopter design, but is restricted to the 
single rotor configuration. This thesis project sought 
to complete the designer’s "tool box" with the 
development of a Tandem Rotor Helicopter Design 
program. Configuration selection could then be based 
upon design superiority and mission requirement rather 
than philosophical whim. 

Aside from the nebulous factors discussed above, 
there are distinct advantages and disadvantages to a 
tandem rotor system. Some advantages of the tandem 
rotor design are: 

- Anti-torque is encumbent in the counter- 
rotating rotor system. 

- No tail rotor losses or side force that 
require compensation. 

- Lighter drive system due to smaller diameter, 
higher rpm rotors (therefore less speed 
reduction ) . 



7 



- Much larger range in center of gravity 
locations . 

- Relatively small effect of wind direction on 
hover capability. [Ref. 2] 

As important as the advantages of a given system 
are, its limitations must be considered also. 
Disadvantages, relative to single rotor systems, are: 

- Greater directional instability, due to 
decreased distance from center of gravity 
position to tail surface. 

- High moment of inertia about the vertical 
axis due to transmission mass located at each 
end . 

- Higher induced power required on aft rotor 
due to the forward rotor downwash. 

- Vibration--twice as many rotors tend to 
produce greater vibration problems than a 
single rotor configuration. [Ref. 2] 

Although some of these are significant problems, 
none are insurmountable. Furthermore, the 

technological developments of the past 20 years are 
updating the previous solutions to these design 
problems with current computer and material technology. 
For example, the Army is currently updating its H-47 
fleet to the "D" model Chinook and the Navy and Marine 
Corps are upgrading their H-46's through the 
Survivability, Reliability and Maintainability 
(S R & M) program. Both programs are intended to 
extend service life well into the next century. 

B. OBJECTIVES 

The primary objective of this thesis project was to 
write a computer program for the conceptual design of 
tandem rotor helicopters. Secondary goals included: 
interactivity for design flexibility; user friendliness 
so people will use it; compactness, for microcomputer 
application; and accuracy so the results are 

meaningful. All of this required the development of a 

substantial amount of program software. 
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The program will be available to students taking 
the Helicopter Design course, AE-4306. This will 
provide the option to easily design a helicopter of 
either rotor system scheme depending on the specific 
mission that it will be required to perform. 
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II. APPROACH AND SOLUTION 



The initial intent of this project was to integrate 
a tandem rotor design section into the existing 
Helicopter Design program written by LT Bob Drake [Ref. 
5]. This, however, proved hopeless as the differences 
in design, equations, input and output became apparent. 
The problem then became to develop the program in a 
format compatible with reference 5, but be totally 
independent . 

"User friendliness” is a key phrase commonly heard 
these days in the computer business, and with good 
reason. People want to use the computer as a tool to 
accomplish a given task without themselves becoming a 
slave to the green screen and microchip. To this end. 
Tandem Rotor Helicopter Design was written as a menu 
driven, interactive program that would, to the maximum 
extent possible, trap errors and return to a menu or 
input field without terminating the program. 

Microsoft GWBASIC was chosen as the language, not 
only to be consistent with Reference 5 but also because 
of its compatibility with IBM, and all true 
compatibles. Furthermore, since there was only a small 
amount of serious number crunching to be done, vast 
speed was not required; hence, GWBASIC was the logical 
choice . 

The program is formatted into a sequence of 
chapters that roughly correspond to the He 1 1 copter 
Design Manual [Ref. 1], Although tandems are different 
in some respects, they share many similarities with 
their single rotor cousins. Therefore, the program 
references the design manual frequently, and also 
provides additional, tandem rotor specific, information 
when appropriate. This provides the student designer 
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hard copy reference material to complement the 
"information" and "help windows" that are built into 
the program. 

Each chapter is designed to run as a follow-on to 
the previous, with provisions to make changes if 
desired. New data is then entered, when prompted, into 
specific input fields. When data entry is complete the 
computer will calculate the results and display them on 
an output field, usually on the same screen, so that 
input and output can be viewed simultaneously. The 
"ANY CHANGES?" prompt will then appear allowing the 
adjustment of parameters to meet design specification. 
Once a design is refined, a print-screen command gives 
a hard copy of the results, then the appropriate menu 
selection proceeds to the next section or returns to 
the main menu. All chapters are linked via the "chain" 
command which not only passes control and executes the 
next program, but also passes all variables. 

One important feature of this program is the use of 
FLASHUP WINDOWS** [Ref. 6] to display menus, information 
and help to the user. This outstanding application 
software allows addition of useful documentation that 
can be easily accessed by the user. By simply pressing 
ALT-F1 , with the cursor on the appropriate line, a 
"help window" will be displayed for each major input 
parameter, pressing "Enter" clears the window and 
returns to the input line. Information windows will 
display automatically when a particular chapter or 
section is selected and will remain as long as desired. 
Again, "Enter" clears the window and proceeds with the 
program. Menus function in much the same fashion, 
except that they remain until the user makes a 
selection, either by pressing the first character 
(letter or number) in the menu line or by using the 
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"up" -"down” arrow keys to highlight the item then 
pressing "Enter" to execute the selection. 

For this project the Helicopter Design Manual [Ref. 
1] and Helicopter Performance [Ref. 3] were the primary 
source of equations. In addition, several other 
resources were tapped in the development of the 
analytical routines of the program. Power requirements 
for tandems are computed using equations developed from 
a combination of momentum theory and test data. This 
set of semi -empi r i cal equations was found to be the 
most accurate when compared to actual H-46 and H-47 
test data [Ref. 4]. Weight estimation used parametric 
equations, specially developed for tandem rotor 
helicopters in [Ref. 7]. 
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III. RESULTS 



Conceptual helicopter design Is based on a myriad 
of Interrelated parameters which constantly require 
changes and Iteration to meet the design specification. 
This program handles the tedious calculations and 
bookkeeping allowing the designer to delve deeper Into 
the Intricacies of the design. Thus the engineer will 
spend his time evaluating options, optimizing 
parameters or conducting trade-off studies, Instead of 
performing mindless hand calculations. Furthermore, 
this program Is designed to teach, as well as being a 
tool. The optional ’’help windows” and Information 
screens all serve to help the novice helicopter 
designer learn the process. Once the process Is 
learned, the designer can quickly refresh his memory 
without Interrupting the continuity of the program. In 
short, the Tandem Rotor Helicopter Design program 
complements existing software, Is easy to use, and 
gives excellent results for Conceptual Design. 

Appendix A contains the "user’s guide" to the 
program. It Is Intended to help students get started 
and use the program regardless of their experience 
level with personal computers. 

Appendix B shows results for a conceptual design of 
a helicopter with design parameters similar to those of 
the H-46. 

Appendix C Is the program listing. 
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IV. CONCLUSIONS AND RECOMMENDATIONS 



Computer assisted design is a rapidly expanding 
aspect of the engineering world--and with good reason. 
Virtually all aspects of design are easier, faster and 
more accurate with the advent of the modern digital 
computer. Furthermore, microcomputers have become so 
common that the power of the computer is available to 
virtually everyone. 

Tandem Rotor Helicopter Design is a small addition 
to the vast amount of software that is being developed. 
With it, the student can work through the conceptual 
design of several helicopters in a fraction of the time 
that it previously took for Just a single design. 

It is recommended as a follow-on to this thesis 
that graphics routines be integrated into the program 
that will plot directly the important relationships 
between parameters. For example, the Power -vs- 
Velocity graph which shows induced, profile, parasitic, 
as well as total power and high speed effects could be 
plotted directly from the results produced in chapter 
5. This would provide an immediate visual presentation 
of how the design should perform. 

Another recommendation would be the addition of a 
"blade optimization" routine similar to the one in the 
Single Rotor Helicopter Design program [Ref. 5]. This 
program however, should run separately from the 
remainder of the program since blade optimization is 
more "detailed" than "conceptual" design. 

Finally it is recommended that microcomputers 
receive more emphasis in the Aeronautical Engineering 
curriculum. A course that includes an introduction to 
personal computers as well as basic operation 
procedures would be of great value to the students. 
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APPENDIX A 



TANDEM ROTOR HELICOPTER DESIGN 
USER’S GUIDE 

1. INTRODUCTION 

This program is designed as a menu driven, 
interactive design tool that will perform the 
bookkeeping and iterative calculations required in a 
conceptual design. Since no tandem rotor design manual 
is available, information screens are displayed 
automatically when amplifying information was deemed 
appropriate. These will remain until the "Enter” key 
is pressed to continue. Also available, in most 

chapters, are "help windows" which are not normally 
displayed but are there if required. A notice (ALT-F1 
for help) will appear to the right of the title if 
"help" is available. These "help windows" can be 
accessed by first locating the cursor on the 
corresponding input line, then press the "Alt" and "FI" 
keys (ALT-F1). Pressing "Enter" clears the window and 
restores program execution. Finally the Hel lcopter 
Design Manual [Ref. 1] is referenced extensively 
throughout the program. Though not totally compatible 
with tandem design, the program does follow this design 
manual where possible. Thus, the Tandem Rotor 

Helicopter Design program complements the Hel lcopter 
Design Manual [Ref. 1] with additional tandem rotor 
specific information. 
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BASICS 



2 . 



a . 



HARDWARE 



COMPUTER: IBM PC or compatible with 128K of RAM. 

MONITOR: Color if possible, but monochrome will 

work . 

PRINTER: Any that will respond to the "Shift- 

PrtSc" option. 

b . GETTING STARTED 

Place the program disk into drive A and turn on the 
computer. The "system" as well as all other support 
software are on the disk for user convenience. The 
program will be loaded and run automatically, so relax 
and let the system work. If the computer is on, just 
insert the disk and press the CTRL-ALT-DELETE keys 
simultaneously to reboot the system. 

c . USING THE PROGRAM 

The main menu Is the first display seen and will 
serve as a road map for progressing through the 
program. At the end of each chapter, control will be 
transferred back to the main menu to select the next 
option or quit If so desired. Selections can be made 
In one of two ways. First, use the up-down arrow keys 
to move the cursor to highlight the desired Item, then 
press "Enter". The second option is to simply press 
the first letter or number key of the desired menu 
item; program execution will begin immediately. 

Once established within a chapter, follow the 
prompts and input the data as requested. If a mistake 
is made -DON'T WORRY- the opportunity will be provided 
to change any item once all data is entered. Note that 
some variables require a positive, non-zero value. If 
zero or a negative number is entered a window will 
appear to advise you of the error. Press "Enter" to 
clear the window and then enter the correct number. A 
similar window appears if an error is made when 
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"Enter" and 



selecting an item to change. Again, press 
continue . 

Each chapter is organized into a series of spread 
sheet type screens that show input and output together 
(if possible). When the input parameters have met the 
requirements, press the Shift-PrtSc keys simultaneously 
for a hard copy. 

d. SPECIAL INSTRUCTIONS 

This section provides a brief synopsis of each 
chapter in the program. Each chapter correlates, by 
number, directly to a corresponding chapter in the 
Helicopter Design Manual [Ref. 1], with one notable 
exception; Chapter 4 is reserved for a future blade 
optimization program since tail rotors don’t really fit 
into the tandem rotor design scheme. 

( 1 ) CHAPTER ONE 

This contains a brief introduction and is 
included for those who do not have access to this 
user ’ s guide . 

( 2 ) CHAPTER TWO 

Chapter Two performs the preliminary rotor 
design for the helicopter. This follows the Helicopter 
Design Manual [Ref. 1] in determining the major 
parameters that will effect the eventual performance of 
the helicopter. Note that one rotor is designed to 
carry half the gross weight and the two rotor system is 
assembled in Chapter Three. 

( 3 ) CHAPTER THREE 

This is the Tandem Rotor System Design segment 
of the program where two identical counter-rotating 
rotors are put together as a system. Any of the 13 
input variables can be adjusted to observe its effect 
on power, figure of merit, disk loading, etc. When 
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these are acceptable, proceed to the weight estimation 
portion of the program. 

Weight estimation Is based primarily on power 
required, but power Is a function of weight, hence an 
Iterative process. As with previous sections, Input 
the requisite Information at the prompts and the 
computer does the rest. 

( 4 ) CHAPTER FOUR 

Blade optimization Is to be Included at a 
later date . 

(5) CHAPTER FIVE 

This chapter Incorporates the effects of 
retreating blade stall, advancing blade shock losses, 
high altitude hover, and various survivability/safety 
additions to the total power required. Total power 
required will be needed to select the engines In the 
next chapter. 

(6) CHAPTER SIX 

Engine and transmission selection are the 
topic of this chapter. To complete the analysis, 
specific engine data Is required. Table VI-1 In the 
Helicopter Design Manual [Ref. 1] provides a summary 
of six generic engines that are representative of 
currently available, power plants. If a specific 
manufacturer's data Is available It too can be used. 

(7) CHAPTER SEVEN 

This section computes the range and endurance 
for the helicopter being designed. Chapter 7 should be 
reviewed before beginning. Once the data Is entered It 
will take a few minutes to solve the equations, so be 
patient; the computer will beep when It Is done. 

(8) CHAPTER EIGHT 

This chapter Is reserved to calculate all of 
those requirements that don’t fit elsewhere. Due to 
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the differences between tandem and single rotor design 
some of these are completed in earlier chapters. Check 
the design gross and empty weight as determined back in 
Chapter 3. 

Maximum hover altitude was specified back in 
Chapter 5 and used in determining engine power 
required. However, the maximum power is often in 
forward flight, thus a higher than specification hover 
ceiling will be available. 

(9) CHAPTER NINE 

This provides a final summary of the 
helicopter's designed performance and geometric 
parameters . 

(10) CHAPTER TEN 

Chapter 10 computes an estimate of cost based 
on a set of parametric equations that incorporate 
component weights (Chapter 3), the inflation rate and 
expected production quantity. 
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APPENDIX B 



PROGRAM RESULTS 
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POWER AT HOVER CEILING = 1,926 SHP AT 10000 ft MSL 

press <Shift-PrtSc> for hard copy, ENTER to continue 
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<Shift-PrtSc> for hard copy, ENTER to continue 



* NUMBER OF ENGINES * {SECTION 

NUMBER OF ENGINES = 2 (specified in Chapter 3) 

* TYPE OF ENGINES * {SECTION 

NUMBER OF ENGINES COMPETING FOR SELECTION ? 2 
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press <Shift-PrtSc> for hard copy, ENTER to continue 
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press <Shift-PrtSc> for hard copy, ENTER returns to MENU 
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ANY CHANGES ? (0=NO,1=YES) 



APPENDIX C 



VARIABLE DEFINITIONS AND PROGRAM LISTING 



1. Units and Constants 



weight = pounds 

airspeed = knots 

velocity = feet per second 

length = feet 

angles = degrees 

power = horsepower 

fuelflow = pounds per hour 

temperature = degrees Fahrenhei 



t 



PIE = 3.1415927 

RHO = sea level density 

MACH = mach number at sea level 



2 . Chapter Two Variables 

MGW = specification maximum gross weight 

GW = rough estimate gross weight 

MTW = estimate of manufacturer’s empty weight 

VTIPMAX = maximum tip velocity 

R = rotor radius 

RPM = revolutions per minute 

RV = rotational velocity in radians per second 

CT = thrust coefficient 

S = blade solidity 

B = number of blades 

C = main rotor blade chord 

AR = main rotor blade aspect ratio 

CL = average lift coefficient 

CDO = blade drag coefficient 

DL = disk loading 

MU = advance ratio 

MBL = maximum blade loading 

VMAX = maximum forward velocity in feet per second 
TASMX = maximum true airspeed in knots 



3 . Chapter Three Variables 

TIPLOSS - main rotor blade tiploss 
PI * induced power 
PO = profile power 
PP = parasite power 
PT - total power 
FM - figure of merit 
PDW - percent difference in weight 
FF » equivalent flat plate area 
PEOPLE - number of people, including crew 
PAX - weight of passengers and crew 
SPECIAL - weight of special equipment 
AV - vertical area presented by 2 rotors as seen 
from the front 

AE - total main rotor blade area 

W(N,N) - component weight 

UL - useful load 

FUEL - fuel weight in pounds 

GEAR - type of landing gear 

FHH - forward rotor height above the ground 
VF - airspeed in feet per second 
PI(I) - Induced power in forward flight 
P0( I ) - profile power In forward flight 
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PP(I) = parasite power in forward flight 
PT(I) = total power in forward flight 
I = airspeed counter in knots 
ENGN => number of engines installed 



4 . Chapter Four Variables 

Blade optimization program to be added at a 
later date. 

5 . Chapter Five Variables 

CLALFA = blade lift curve slope 
TWIST = main rotor twist angle in degrees 
T7 = main rotor twist angle in radians 
AOAST = stall angle of attack for rotor blades 
in degrees 

PASPEC = specification altitude 
AE = effective disk area 
VT = main rotor tip velocity 
TAS(I) = airspeed in knots 
MU = advance ratio 

AOA90 = blade angle of attack at 90 degree position 
AOA270 = blade angle of attack at 270 degree 
position 

MACHVEL = local mach number as a function of 
altitude 

MTIP = main rotor blade tip mach number 
M90 = mach number advancing at 90 degree 
position 

MCRT = main rotor blade critical mach number 
DMD = difference between M90 and MCRT 

MD = main rotor blade critical mach number for drag 
divergence 

MTIPHVR = local tip mach number in hover 
MTIPFLT = local tip mach number in forward 
flight 

MXHVR = specification hover ceiling 

CTHC = thrust coefficient at hover ceiling 

TIPHC = tiploss at hover ceiling 

PIHC = main rotor induced power at hover ceiling 
B1 = tiploss 

COLANGLE = collective angle in degrees 
H8 = collective angle in radians 
CYCLIC - cyclic angle in degrees 
H2 = cyclic angle in radians 

TASCR = cruise airspeed in knots, specification 
TASMX = maximum airspeed in knots, 
specif icat ion 

TASMAXP = airspeed for maximum power required 
TASMINP = airspeed for minimum power required 
PSPECHVR - total power to HIGE at hover ceiling 
DELTA = pressure ratio 
THETA = temperature ratio 

RSHP = maximum rotor shaft horsepower required 
INLET = inlet losses 

PINLET = percent loss due to inlets 
RSHPINLT = added horsepower for inlets 
EAPS = losses due to engine air partical separators 
PEAPS = percent loss due to EAPS 
RSHPEAPS = added horsepower for EAPS 
EEDS = losses due to engine exhaust diffusers 
PEEDS = percent loss due to EEDS 
RSHPEEDS = added horsepower with EEDS 
ENGNLOST = horsepower required to operate engine 
devices 

PCTENGN = percent power required for engine devices 
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MICSLOST = horsepower absorbed by engine, 
transmissions and accessories 
PCTMISC = percent power required for engines, 
transmissions and accessories 
RSHPLOST = total power lost between engines and 
rotors 

PCTLOST = percent power lost between engines and 
rotors 

ESHP = engine shaft horsepower required to provide 
rotor power 

6 . Chapter Six Variables 

NENGSEL = number of engines competing for selection 

MDT - maintenance down time 

MTBF = mean time between failure 

MTBR = mean time between replacement 

DW( X ) = engine dry weight 

SHP ( X ) = engine shaft horsepower at military 
SFC(X) = specific fuel consumption at military 
ENG = number of engines 
IC (X) = initial cost 
OC (X) = operating cost per hour 

PMA(X) = preventative maintenance per engine per 
hour 

MTBMA(X) = mean time between maintenance action 

AFL - average flight hours per year 

SL = aircr a f t service life 

TAV = average flight hour per flight 

YM(X) = engine yearly maintenance cost 

YO(X) = engine yearly operating cost 

NRPL(x) = number of engine replacements 

LC(X) = engine life-cycle cost 

RD(X) = engine research and development costs 

AVAIL(x) = engine availability 

MAINT(x) = engine maintainability 

RELY(x) = engine reliability 

RC(X) = replacement costs 

SV(X ) = salvage costs 

EWT(_x) = installation engines weight 
XMSNW = transmission weight 
XMSNP = transmission power rating 

7 . Chapter Seven Variables 

SFC(X) - specific fuel consumption 
SHP - shaft horsepower 

WDOTF(x) =- fuel flow in pounds per hour 
BETAH - slope of the fuel flow versus horsepower 
curve 

ALPHAH - zero horsepower intercept 
DELTA - pressure ratio 
THETA - temperature ratio 
ALT - specification altitude 
TEMP - specification temperature 
PF - phantom horsepower 

TASMXR = maximum range velocity in knots 

FFMXR - maximum range fuel flow 

RHPMXR - maximum range referred horsepower 

PTMXR = maximum range horsepower 

TASMINP - maximum endurance velocity in knots 

PTMIN - SHP for maximum endurance 

RHPMXE - maximum endurance referred horsepower 

FFMXE - maximum endurance fuel flow 
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TASCR = cruise velocity 

PTCR = cruise power in horsepower 

FFCR = cruise fuel flow 

MXR = specification maximum range 

TFUEL = total fuel required 



8 . Chapter Eight Variables 

See program listing for variable definition. 

9 . Chapter Nine Variables 

All variables are the same as above. 

10 . Chapter Ten Variables 

C (X ) = component cost 
CEfX ) = total cost 
IFR = inflation rate 
Q = quantity to be produced 
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1 ’PROGRAM "TR1.BAS" 

2 KEY OFF : FLG2=0 
1 1 

>*##*#***##*****###*****#*****************#*********** 

14 ’* *** TANDEM ROTOR HELICOPTER DESIGN *** 

15 

>***############*#####*#****###############*##***##**# 

16 ’ 

18 ’ *** ADMIN / CONTROL *** 

20 ’ 

21 PRINT"~L=TANDEM1 /" 

25 COLOR 1 , 1 , 1 : PRINT " ~C= ALL/ " : CLS : LOCATE 1,1.0 
30 PRINT " ~W=T R MENU/": INPUT" " , XX : PRINT " ^C = ALL/ " : 

CLS — — 

35 ON XX GOSUB 

50,100.3000,4000,5000,6000,7000,8000,9000,9500,95 
40 GOTO 25 

50 LOCATE 1,1,0: PRINT " ~W= INTRO/ " : INPUT" ",X1 

55 PRINT " ~C= ALL/ " : RETURN 25 

90 ’ 

95 COLOR 1,1,1: LOCATE 1,1.0: PRINT" ~W=R U SURE/" 

96 INPUT"", ANS: IF ANS = 1 THEN 25 ELSE SYSTEM 

97 ’ 

98 ’ 

1 00 ’ *** PRELIMINARY ROTOR DESIGN **# 

110 ’ 

120 COLOR 1,1,1 -.LOCATE 1,1,0: PRINT " ~C = ALL/ " : 

PRINT"~W=PRELIM/ a : INPUT X2 

125 COLOR 15,1 : PRINT" ~C= ALL/ " 

130 CNT = 0 

140 CLS: LOCATE 1,27 : PRINT 

DESIGN *" 

150 PRINT 

160 PRINT " 1. DESIGN MAX GROSS WEIGHT [lbs] (2.1) 

MGW = " 

170 PRINT " 2. ESTIMATE OF EMPTY WEIGHT [lbs] 

(2.2) MTW = " 

180 PRINT " 3. ROTOR TIP VELOCITY (2.3; 700 fps 

recommended.) VT = " 

190 PRINT " 4. DISC LOADING [lbs/ft~2] (2.4 ; FIG. 

o_o \ r\T _ ii 

----- .. ROTOR RADIUS [ft] 

R _ II 

ROTATIONAL VELOCITY [rpm] 



" * PRELIMINARY ROTOR 



'00 PRINT 

2.4) 

'10 PRINT 

RPM = " 

'20 PRINT 

2 . 6 ) 

'30 PRINT 



2.7) 



TASMX = " 



CT 
5 



— II 



240 


PRINT 


It 


. .MU = 


250 PRINT 


II 


6 . 


CT/S) 




. MBL 


II 


260 


PRINT 


II 


. .S = " 


270 P 


RINT 


II 


7 


(2.8) 




. . . B 


= M 


280 


PRINT 


If 


C = " 


290 


PRINT 


II 


. . . AR = 


300 


PRINT 


If 


CL = " 



THRUST COEFFICIENT 
SPECIFICATION MAX AIRSPEED [knots] 

ADVANCE RATIO (2.7) 
6. MAX BLADE LOADING (2.7; FIG. 2-3; 

ROTOR SOLIDITY (2.7) 
NUMBER OF ROTOR BLADES PER HEAD 
BLADE CHORD [ft] (2.9) 
ASPECT RATIO (2.9) 
AVG LIFT COEFF (2.10) 



320 PRINT 
330 PRINT 
340 LOCATE 



COLOR 14,1 

8. RETURN TO MAIN MENU." 

23,6: PRINT"*** FOR HARD COPY PRESS 

< Shi f t - Pr tSc > BEFORE RETURNING TO MAIN MENU ***": COLOR 

15,1 
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370 ELSE LOCATE 21,1: PRINT 

YOUR VALUE FOR ITEM 



345 ’ 

350 CNT = CNT + 1 : J = 0 
360 IF CNT = 1 THEN 

SPC( 77J. : GOTO 410 
370 FOR J = 1 TO 7 
380 LOCATE 21,20 : PRINT "ENTER 

NUMBER " ; J 

390 X = J : GOTO 430 

410 LOCATE 21,11: INPUT"WHICH PARAMETER DO YOU WISH TO 
CHANGE 7 SELECT ? ", X 

430 IF X < 1 OR X > 8 THEN GOSUB 1500 : IF J = 0 

THEN 410 ELSE 380 

440 ON X GOSUB 510,520,530,540,550,560,570,25 
450 IF CNT = 1 THEN NEXT J ELSE GOSUB 800 

455 FLG1 = 1 : GOTO 350 

460 ’ 

480 ’ *** PRELIM ROTOR DESIGN INPUT 

SUBROUTINES *** 

500 ’ 

510 LOCATE 3,61 : 

" , MGW 

515 IF MGW <= 0 

RETURN 

520 LOCATE 4,61 : 

" , MTW 

525 IF MTW <= 0 

RETURN 

530 LOCATE 5,61 : 

", VT 

535 IF VT <= 0 
RETURN 

540 LOCATE 6,61 : 

It J} g 

545 IF DL <= 0 



INPUT" 
GOTO 520 ELSE 



PRINT SPC( 7 ) : LOCATE 3,60 : INPUT" 

THEN PRINT " ~W=DVN0/ " : GOTO 510 ELSE 

PRINT SPC ( 7 ) : LOCATE 4,60 

THEN PRINT " ~W=DVN0/ " 

PRINT SPC ( 7 ) : LOCATE 5,60 : INPUT" 

THEN PRINT " ~W=DVN0/ " : GOTO 530 ELSE 

PRINT SPC ( 7 ) : LOCATE 6,60 

THEN PRINT " ~W=DVN0/ " 

LOCATE 10,60 



LOCATE 14,60 



INPUT" 
GOTO 540 ELSE 
INPUT" 
GOTO 550 ELSE 
12,60: INPUT" 

GOTO 560 ELSE 
INPUT" 



<= 0 THEN PRINT " ~W=DVN0/ " 
RETURN 



# # # 



PRELIMINARY ROTOR 



GOSUB 630 : RETURN 
550 LOCATE 10,61: PRINT SPC(7) 

" , TASMX 

555 IF TASMX <= 0 THEN PRINT " ~W=DVN0/ " 

GOSUB 690 : RETURN 

560 LOCATE 12,61: PRINT SPC(7) : LOCATE 

" , MBL 

565 IF MBL <= 0 THEN PRINT " ~W=DVN0/ " 

GOSUB 710 : RETURN 

570 LOCATE 14,61: PRINT SPC(7) 

II g 

5^5 IF B 
GOSUB 730 
590 ’ 

600 ’ 

OUTPUT *** 

610 ’ 

630 PIE = 3.141592 : RHO0 = .0023769 : RHO = 

636 R = SQRCABS (.5 * MGW/ ( DL * PIE))) 

640 RPM = VT * 9.55 / R 

650 CT = MGW / (2 * RHO * PIE * R 

660 LOCATE 7,52 : PRINT USING "#### 

670 LOCATE 8.52 : PRINT USING "tttttt# 

680 LOCATE 9,52 : PRINT USING " 

RETURN 

690 MU = TASMX * 1.68893 / VT 

700 LOCATE 11,52 : PRINT USING "####.####" ; 

RETURN 

710 >*** solidity calcn *** 

715 S = CT/MBL 

720 LOCATE 13,52 : PRINT USING 

RETURN 

730 >*** chord, aspect ratio, and lift coeff *** 

735 C = S * PIE * R / B 



GOTO 570 ELSE 
DESIGN EQUATIONS AND 

0023769 




.Mb#" 



* VT) 
R 

RPM 



CT 



MU 



35 



740 AR = R/C 
750 CL= CT * 6 
770 LOCATE 15, 52 

780 LOCATE 16, 52 

790 LOCATE 17, 
CL: RETURN 
800 ’ 

820 ’ *** 

840 
850 
860 
870 
880 
890 
900 
910 
920 
935 
940 
950 
960 



/ s 



52 



PRINT USING 
PRINT USING 
: PRINT 



nm-.m p = s 5 

USING "tittttb .####" 



PRELIMINARY ROTOR DESIGN SUBROUTINE 

* PIE))) 



* # # 



R = SQRCABS (.5 * MGW/ ( DL 
RPM = VT * 9.55/ R 
CT = .5 * MGW /(RHO * PIE 

LOCATE 7, 52 : PRINT USING 

LOCATE 8, 52 : PRINT USING 

LOCATE 9, 52 : PRINT USING 

MU = TASMX * 1.688 / VT 

LOCATE 11, 52 : PRINT USING 

S = CT/MBL 

LOCATE 13, 52 : PRINT USING 

C = S * PIE * R / B 
AR = R/C 
CL= CT * 6 / S 

PRINT USING" 
PRINT USING" 
PRINT USING" 




VT ) 



"tttttttt .tttttttt" ; MU 
"tttttttt .tttttttt" ; S 




970 

980 LOCATE 15, 52 

990 LOCATE 16, 52 

1000 LOCATE 17, 52 

1500 LOCATE 1,1,0: PRINT " ~W=TRYAGAIN/ " : 

PRINT SPC( 77 ) : RETURN 

2000 ’ 

1 ,1 , 0 : PRINT " ~W=LOADNOTE/ " 



3000 LOCATE 
CHAIN"TR3" j_ , ALL 



C 

AR 

CL: RETURN 
LOCATE 23,1: 



: FLG2= 1 



4000 
5000 
6000 
7000 
8000 
9000 
9500 
9999 
1 020 



LOCATE 1 , 1 
LOCATE 1 , 1 
LOCATE 1 , 1 
LOCATE 1 , 1 
LOCATE 1 , 1 



PRINT " ~W= BLDOPT / " : INPUT X4 : GOTO 25 

PRINT " ~W=LOADNOTE/ " : CHA IN r ' TR5 " , , ALL 

PRINT " ~W=LOADNOTE/ " 

PRINT " ~W=LOADNOTE/ " 

PRINT " ~W=LOADNOTE/ " 

LOCATE 1 ,1 , 0 : PRINT " ~W=LOADNOTE/ " 

LOCATE 1 ,1 , 0 : PRINT " ~W=LOADNOTE/ " 

END 

’ PROGRAM "TR3 . BAS" . . . 1 7 SEPT 87 



0 

0 

0 

0 

0 



: CHAIN " TR6 " , , ALL 
: CHAIN " TR7 " , , ALL 
: CHAIN" TR8 " , , ALL 
: CHAIN"TR9" , , ALL 
: CHAIN " TR 1 0 " , , ALL 



1 021 

>############*********####*###########################_ 

######### 

1022 ’* *** TANDEM ROTOR SYSTEM DESIGN & WEIGHT 

ESTIMATION *** * 

1 023 

>##*##################**#****####*###############*###*_ 

######### 

1024 ’PLEASE NOTE: USING BASICA TO RUN THIS PROGRAM 
WILL CAUSE THE INPUT LINE TO BE DELETED IF THE FLASHUP 
HELPWINDOW IS DISPLAYED ! 

1025 DIM 
W(20 . 20 ) , GW ( 20 ) , WE( 20 ) ,W6( 1 0 ) ,W6A( 1 0 ) ,W6B( 1 0 ) ,W6C( 10),- 
PDW( 9 1 

1030 PIE = 3.141592 : RHO0 = .002377 

1035 ’MGW = 23000: R=25.5: C=1.5: CDO= . 0089999 : B = 3: 

RPM = 267.4 

1040 ’S1= 34: GAP= 4: FHH= 16: PA= 1 : TAS=1: FF=44: 

^^^V%="tttttttttttt .tt" : B$= " tt tt tt tt tt tt " : 

1050 PRINT " "L=TANDEM3/ " : ’ FLG2 = 1: FLG3 = 0 

: ’ FLG2 : f 1 ag fm TR 1 rbf,FLG3 

1060 KEY OFF : COLOR 15,1 : CLS : PRINT "~C=ALL/" 

1 090 ’ 

1100 »#»*#*»»*»**»»»»» POWER VARIABLES INPUT 

a#####################*# 

1150 ’ 

1170 CNT = 1 : CLS: LOCATE 1,22 
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180 PRINT "* TANDEM ROTOR SYSTEM DESIGN * 
A1 t-FI for help}" 

' 1 90 PRINT 

200_ PRINT " 1 

lbs] MGW = " 

1210 PRINT " 

ft] 

220 PRINT 



DESIGN MAX GROSS WEIGHT 
ROTOR RADIUS 



1230 PRINT 
i 240 * PRINT ‘ " 
i 250 * * PRINT * 
12 60' PRINT * " 
i 270 ' PRINT 



CDO = 



B = 



5. 

If 



4 

NUMBER 



2 . 

R = " 

3. BLADE CHORD [ft] 
. . . . C = " 

BLADE PROFILE DRAG COEFFICIENT 



OF ROTOR BLADES PER HEAD 
OPERATING RPM [rpm] 



1280 PRINT 
WHEELS [ft 
1290 PRIN 



i 



II 

GAP 

#1 



_ If 



6 . 

RPM = " „ _ 

7. ROTOR SHAFT SPACING [ft] 
.SI = " 

8. ROTOR HEAD VERTICAL SPACING [ft] 



1300 PRINT 



HEIGHT OF FORWARD HEAD ABOVE 
PRESSURE ALTITUDE [ft MSL] 

AGL] 



9 . 

FHH = " 

1 0 . 

. PA = " 

1 1 

. . . AGL = " r 

12. TRUE AIRSPEED [knots] (0 FOR 



HOVER ALTITUDE 



[ft 



61 : PRINT USING AS 
5,61: PRINT USING AS 
61 : PRINT USING C$; 
7,61: PRINT USING B$ 



1310 PRINT 

HOVER) TAS = 

1320 PRINT " 13. 

FF = M 

i 325 'COLOR* i 4 i 1 

1330 PRINT " 14 

RETURN TO MAIN MENU" 

1331 COLOR 15,1 

1332 IF FLG2 = 1 THEN 1335 ELSE 1375 
1335 ’load data from previous chapter, 
or allows input! 

1 336 ’ 

1338 IF MGW <>0 THEN LOCATE 3,61: PRINT USING A$ ; 

ELSE GOSUB 1500 

1340 IF R <>0 THEN LOCATE 4 
ELSE GOSUB 1520 

1342 IF C <>0 THEN LOCATE 
ELSE GOSUB 1540 

1344 IF CDO <>0 THEN LOCATE 6 
ELSE GOSUB 1560 
1346 IF B <>0 THEN LOCATE 
ELSE GOSUB 1580 

1348 IF RPM <>0 THEN LOCATE 8,61: PRINT USING A$ ; 

ELSE GOSUB 1600 

1350 IF SI <>0 THEN LOCATE 9,61: PRINT USING A$ 

ELSE GOSUB 1620 

1352 IF GAP <>0 THEN LOCATE 10,61: 

ELSE GOSUB 1640 

1354 IF FHH <>0 THEN LOCATE 11,61: 

ELSE GOSUB 1 660 

1356 IF PA =>0 THEN LOCATE 12,61: 

ELSE GOSUB 1 680 

1358 IF AGL <>0 THEN LOCATE 13,61: 

ELSE GOSUB 1700 

1360 IF TAS =>0 THEN LOCATE 14,61: 

ELSE GOSUB 1720 

1362 IF FF <>0 THEN LOCATE 15,61 
ELSE GOSUB 1740 
1364 GOSUB 1770 : GOSUB 2140 
1 366 ’ 

1 370 CNT = CNT + 1 : J = 0 

1375 IF CNT = 1 THEN 1380 ELSE LOCATE 23,1: PRINT 

SPC(77): GOTO 1420 



EQUIVALENT FRONTAL AREA [ft~2] 
COMPONENT WEIGHT ESTIMATES 15. 

if applicable; 

MGW 
R 
C 

CDO 
B 

RPM 
SI 
GAP 
FHH 
PA 



PRINT USING A$ ; 
PRINT USING AS; 
PRINT USING B$ ; 



PRINT USING B$ ; AGL 
PRINT USING B$ ; TAS 
: PRINT USING AS; FF 
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1 380 
1 390 
NUMBER 
1 400 
1 420 



FOR J = 
LOCATE 

" ; J 
x = J 
LOCATE 



1 TO 1 3 

23, 20: PRINT "ENTER 



GOTO 1440 
23,11: INPUT "WHICH 



YOUR VALUE FOR ITEM 



> 15 



PARAMETER DO YOU WISH 
THEN GOSUB 4500: IF J = 0 



1 540 
2250 



DATA 



1 560 , 1 580 , 1 600 , 1 620 , 
9000 



ENTRY SUBROUTINES 



TO SELECT / CHANG& " ; X 

1440 IF X < 1 OR X 

THEN 1420 ELSE 1390 
1450 ON X GOSUB 1500,1520 
1640,1 660 , 1 680 . 1 700 ,1720,1740 
1460 IF CNT = 1 THEN NEXT J 
1470 FLG2 = 1 : GOTO 1370 

1 480 ’ **************** 
a*************************** 

1 490 ’ , 

1500 LOCATE 1,1.0: PRINT " ~K= { ALT-F1 }, HW1 / » 

1505 LOCATE 3,61: PRINT SPC ( 8 ): LOCATE 3,60:INPUT" ",MGW: 
PRINT " ~K= { ALT -FI )/ " 

1510 IF MGW <=0 THEN PR INT " ~W=DVN0 / " : GOTO 1500 

1515 IF CNT > 1 THEN GOSUB 1770: GOSUB 2140: RETURN ELSE 

RETURN 

1520 LOCATE 1,1.0: PRINT " ~K= (ALT-F1 } ,HW2 / " 

1522 LOCATE 4,61: PRINT SPC(8): LOCATE 4,60: INPUT" ",R 

: PRINT " ~K= { ALT-F1 V 

1524 IF R <= 0 THE! 

1526 IF CNT > 1 THEN 
RETURN 

1540 LOCATE 1,1.0: PR INT " ~K= { ALT -F 1 },HW3/" 

1542 LOCATE 5,61:PRINT SPC ( 8 ): LOCATE 5,60:INPUT" 

PRINT "~K=< ALT -FI >/" 

1544 IF C <= 0 THEN PRINT " ~W=DVN0/" : GOTO 1540 ELSE 
1546 IF CNT > 1 THEN GOSUB 1770: GOSUB 2140: RETURN ELSE 
RETURN 



[ PRINT""W=DVN0/" : GOTO 1520 ELSE 
GOSUB 1770: GOSUB 2140: RETURN ELSE 



" ,C 



1560 LOCATE 1,1,0: PRINT " ~K= (ALT-F1 }. HW4/ " 

- -- SPC ( 8 ) : LOCATE 6,60: 



1 565 LOCATE 6,61 : PRI 
"CDO : PR INT " ~K={ ALT-F 1 
1570 IF CDO <= 0 THEN 
1575 IF CNT > 1 
RETURN 

1580 LOCATE 1,1.0: PRINT " ~K = { ALT-F1 >, HW5/ » 

1585 LOCATE 7,61:PRINT SPC (8 ): LOCATE 7,60 
PRINT"~K={ ALT-F 1 _)/ " 

1590 IF B <= 0 THEN PRINT " ~W=DVN0 /" : GOTO 
1595 IF CNT > 1 THEN GOSUB 1 770 : GOSUB 2140: 
RETURN 

1600 LOCATE 1,1.0: PRINT " ~K= { ALT -FI } , HW6/ " 

1610 LOCATE 8^61 -.PRINT SPC ( 8 ): LOCATE 8,60: 



INPUT" 



?INT"~W=DVN0/" : GOTO 1560 ELSE 
THEN GOSUB 1770: GOSUB 2140: RETURN ELSE 



INPUT" " , B : 



1610 LOCATE 8,61 : PRI 
: PRINT"~K=< ALT-F1 )/" 
1615 IF RPM < = 0 THE 



1580 ELSE 
RETURN ELSE 



INPUT" " , RPM 



CNT > 1 



__EN PRINT " ~W=DVN0/ " : GOTO 1600 ELSE 
THEN GOSUB 1770: GOSUB 2140: RETURN ELSE 



1618 IF 
RETURN 

1620 LOCATE 1,1.0: PRINT " ~K= (ALT-F1 } ,HW7/" 

1630 LOCATE 9,61: PRINT SPC ( 8 ): LOCATE 9,60: INPUT" ", SI 

1635 PRINT " ~K = jALT-F 1 )? " : IF CNT>1 THEN GOSUB 1770-.GOSUB 
2140: RETURN ELSE RETURN 

1640 LOCATE 1,1,0: PRINT " "K= { ALT-F1 }, HW8/ " 

1650 LOCATE 10,61: PRINT SPC ( 8 ): LOCATE 

" .GAP 

1655 PRINT " ~K= { ALT-F1 >/" : IF CNT>1 

1770 -.GOSUB 2140: RETURN ELSE RETURN 
1660 LOCATE 1,1.0: PR INT " ~K= (ALT-F 1 ) . HW9/ " 

11,61: PRINT SPC(8) :LOCATE 



10,60 

THEN 



INPUT" 

GOSUB 



1665 LOCATE 1 1.61: PRINT ! 
" , FHH : PR INT " ~K= { ALT-F 1 ) / " 

1670 IF FHH <= 0 THEN PRINT" 



11 , 60 : INPUT" 



'W='DVN0 / " : GOTO 1660 ELSE 
1675 IF CNT > 1 THEN GOSUB 1770 -.GOSUB 2140 : RETURN ELSE 

RETURN 

1680 LOCATE 1,1,0: PRINT " ~K= { ALT-F1 >, HW1 0/ " 
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LOCATE 12,61 :PRINT SPC ( 8 ): LOCATE 



12,60: 

THEN 



IF CNT > 1 
RETURN 

,HW 1 1 /" 

>CATE 13,60: 

IF CNT > 1 THEN 
3 RETURN 
ALT-F1 } ,HW1 2/" 
>C(8):LOCATE 14,60: 



THEN 



IF CNT > 1 
RETURN 

0: PRINT " ~K = 7'ALT-F1 } ,HW1 3/ " 

61: PRINT SPC(8) :LOCATE 15,60: 



INPUT” 

GOSUB 

INPUT” 

GOSUB 

INPUT” 

GOSUB 



RETURN 



1 460 



POWER 



INPUT” 
1740 ELSE 

COMPUTATION SUBR 
1 755 



1 685 
» pa 

1&90 PRINT " ~K= ( ALT-F1 )/" : 

1770: GOSUB 2140: RETURN ELS] 

1700 LOCATE 1,1,0: PRINT " ~K= (ALT-F1 

1710 LOCATE 13,61 : PRINT SPC(8):L< 

” AGL 

1715 PRINT ” ~K= ( ALT-F1 )/” : 

1770: GOSUB 2140: RETURN ELS] 

1720 LOCATE 1,1.0: PRINT"~K=< 

1730 LOCATE 14,61 -.PRINT S] 

” TAS 

1735 PRINT ” ~K= { ALT-F1 }/” : 

1770: GOSUB 2140: RETURN ELS] 

1 740 LOCATE 1 , 1 
1 750 LOCATE 15,-' - - + - 
" , FF : PRINT ” ~K= (ALT-F1 >/" 

1755 IF FF <= 0 THEN PRINT " ~W=DVN0/ ": GOTO 

GOSUB 1770 
1760 GOSUB 2140: 

1 765 ’ 

1770 >#####*##*#*****##** 

##############*#******#*## 

1780 N = 1 :GW(1 ) = MGW : ’ subr access from line 

1 790 ’ 

1800 ’N = 1 thru 5 as sent from weight comp admin subr. 

1820 GW( 1 ) = .8 * MGW 

1830 CNT =CNT + 1 

1840 RTRHT = FHH + .5 * GAP 

1850 GE = ( AGL+RTRHT ) / (2*R) 

1860 PGE = .5147 + 1.3432*GE - 1.457*GE~2 + .708*GE' N 3 - 

. 1 276 *GE~4 

1870 RV = RPM/9.55 : VT 

1 . 68893 

1880 SIGMA = (1 - 6 . 87535E-06 * 

1890 IF PA=0 THEN RHO=RHO0 
RHO= . 001 918 ELSE RHO=SIGMA*RHO0 
1900 MU = VF 7 VT 
1910 T = 1 .055 * GW(N) 

1 920 S = B * C /(PIE * R) 

1930 TIPLOSS = 1 - T SQR ( 2 * CT ) / B) 

1940 RE = R * TIPLOSS 
1950 SR = SI / R 

1960 AE= 2*RE~2*( PIE-( PIE/ 1 80 ) *ACOS( SI /( 2*RE) ) ) 

SI *SQR(RE~2-(S1 ~2 )/4 ) 

1965 CT = T / ( RHO * AE * VT~2 ) 

1 970 K = 1.46- . 253 * SR 
1980 AV = PIE * R~2 - 2 * R * GAP 

1990 VI = SQR( T / ( 2*RH0*AE) ) ,, , x , 

”” SQR( SQR( i + . 25* ( ( AV/ AE ) * ( VF/VI ) )~4 ) 



= RV 



R 



VF = TAS 



PA)~4 . 2561 

ELSE IF PA=4000 

: ’ lb-sec" - ^ /f t~4 



THEN 



:t^s" 



2000 KU 

. 5*(( AV/ AE ) * ( VF/VI J ) A 2 ) 

2004 DL = GW(N) / AE 

2006 CL = 6 * 

2007 AR = R/C 

2008 BL = CT / S 

2009 IF B*C*R/S1 > 3.75 THEN COLOR 1,1,1:LOCATE 1,1,0: 
PRINT ” ~W=BLDSTRK/ " : INPUT X4 : PRINT " ~C=ALL/ " : COLOR 15,1 
2020 ’ 

2030 ’ *** POWER CALCULATION *** 

2040 ’ 

2060 IF GE <= 2 THEN PI = PGE * T * 

ELSE 

2070 PI = T * VI * K * KU / 550 

2080 PO = ( CDO * B * C * R * VT~3 * 

* MU ^2 

2090 PP = VF~3 * FF * RHO / 1100 



•C 

2105 FM 



2100 PC = (T * VV + RHO * FF * VV~3 
= PI / (PI + PO) 



k 



VI 
RHO 
) / 



* K * KU /550 
/ 2200 ) * ( 1+ 4.3 
1 1 00 
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POWER RESULTS OUTPUT SUBR 



PI 

PO 

PP 

PC 

PT: LOCATE 
FM: LOCATE 
DL: LOCATE 
CL : LOCATE 
AR: LOCATE 
BL: LOCATE 






2110 PT = PI + PO + PP + PC 
2120 RETURN 
2130 ’ 

2140 ’ ******************** 

********************** 

2150 ’ 

2170 LOCATE 17, 34: PRINT " — RESULTS — " 

2180 LOCATE 18,14:PRINT USINC’PI = 

2190 LOCATE 19, 14: PRINT USINC’PO = 

2200 LOCATE 20 , 1 4 : PRINT USING"PP = 

2210 ’LOCATE 21 .14: PRINT USING"PC = 

2220 LOCATE 22, 14: PRINT USING"PT = ti) 

22,29: PRINT "HP" 

2230 LOCATE 18,46: PRINT USING"FM 
1 8 , 59 : PRINT"< . 75 to. 85) *HOVER 
2232 LOCATE 19,46: PRINT USINC'DL 
1 9 , 59 : PRINT"{ 5 to 1 5 > ONLY 

2234 LOCATE 20,46: PRINT USINC'CL 
20,59 : PRINT " { CLmax ; 1.55) 

2236 LOCATE 21, 46: PRINT USING"AR 
21 , 59 : PRINT"{ 15 to 20 \ 

2238 LOCATE 22,46: PRINT USINC'BL 

22,59 : PRINT " { BLmax ; 0.12) 

2239 ’ 

2240 RETURN : ’returns to 1366 or 

2249 ’ 

2250 *************** COMPONENT WEIGHT APROX 
*************** 

2251 ’ 

2252 ’ FLG3= 1 : GEAR= 1 : ENGN = 1 : FUEL = 2500: 

SPECIAL=100: UL= 1 000 :’ remove before flight 

2253 CLS: PRINT " ~C= ALL/ " : LOCATE 1 , 1 , 0 : PRINT " ~W=WT EST/": 

INPUT" " ,X3 : PR INT " ~C= ALL/ " : CLS “ 

2255 LOCATE 1 ,22: PRINT " * COMPONENT WEIGHT 

APPROXIMATIONS * 7Alt-F1 for help}" 

2260 PRINT"~K=< ALT-F1 } .WTAPRXHW/" 

2265 IF FLG3 =1 THEN 2360 ELSE 

2270 >************** SUPPLEMENTARY DATA INPUT 

************************ 

2271 ’ 

2272 LOCATE 3,2: PRINT" 1. TYPE LNDG GEAR (TRICYCLE 
STYLE ) " 

2276 LOCATE 4,2: INPUT" 1 =FIXED 2 = RETRACTABLE 

".GEAR 

2280 LOCATE 5,2: INPUT"2. NUMBER OF ENGINES (2 or more) 

... ", ENGN 

2285 LOCATE 6,2: INPUT"3. ESTIMATED FUEL CAPACITY 

7 lbs ) '• FUEL 

— - INPUT " 4 . NUMBER OF CREW AND PASSENGERS 
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INPUT SUBR 
PEOPLE= 25 : 



2290 LOCATE 7,2: 

... ".PEOPLE 
2292 LOCATE 8,2 
.... " .SPECIAL 

2294 LOCATE 9,2 

(lbs) . ", UL 

2295 GOSUB 3000 

2296 COLOR 14,1 -.LOCATE 10,2: 

ROTOR SYSTEM DESIGN" 

2298 LOCATE 12,2: PRINT SPC(40) : FLG3 

2300 LOCATE 12,2: INPUT" SELECTION ? 

changes) ",X: COLOR 15,1 
2307 IF X = 7 THEN PR INT " ~K= (ALT-F 1 )/" 

2310 IF X < 1 OR X > 7 THEN BEEP: GOTO 2296 ELSE 

2315 ON X GOSUB 2320,2325,2330,2335,2340,2345,1100: 

GOSUB 3000: GOTO 2296 

2320 LOCATE 4,39: PRINT SPC(6): LOCATE 4,38: INPUT" 

m gear • RETURN 

2^25 LOCATE 5,39: PRINT SPC(6): LOCATE 5,38: INPUT" 

" , ENGN : RETURN 



INPUT " 5 . WT OF SPECIAL AVIONICS (lbs) 
INPUT " 6 . SPECIFICATION USEFUL LOAD 

PRINT "7 . RETURN TO TANDEM 
= 1 

( 1 thru 6 for 
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LOCATE 6,58: INPUT" 
LOCATE 7, 38: INPUT" 
LOCATE 8,38: INPUT" 
LOCATE 9,38: INPUT" " , UL 

parameters first with 
LNDG GEAR (TRICYCLE 
1 =FIXED 



2330 LOCATE 6,39: PRINT SPC(6) 

".FUEL : RETURN 

2335 LOCATE 7,39: PRINT SPC(6) 

".PEOPLE : RETURN , x 

2340 LOCATE 8,39: PRINT SPC(6) 

".SPECIAL : RETURN , x 

2345 LOCATE 9,39: PRINT SPC(6) 

: RETURN 
2350 ’ 

2360 ’ *** routine to list these 

option to change. 

2363 LOCATE 3,2: PRINT"1. TYPE 

STYLE ) 11 

2365 LOCATE 4,2: PRINT USING" 

2= RETRACTABLE tttttttttt " : GEAR 

2370 LOCATE 5,2: PRINT USING"2. NUMBER OF ENGINES (2 or 

more) ... tttttttttt" :EUGN 

2375 LOCATE 6,2: PRINT USING"3. ESTIMATED FUEL CAPACITY 

(lbs) tttttttttt " : FUEL 

2380 LOCATE 7,2: PRINT USING"4 

PASSENGERS . . . tttttttttt" : PEOPLE 
2385 LOCATE 8,2: PRINT USING"5. WT 
(lbs) .... tttttttttt" ;SPECIAL 
2390 LOCATE 9,2: PRINT USING"6. 

LOAD (lbs}., tttttttttt": UL 
2400 GOSUB 3000: GOTO 2296 
2410 ’ 

2465 ’ *********** COMP WT RESULTS 

*************************** 

2466 ’ 

2469 LOCATE 3,53 : PRINT"* COMPONENT * * WEIGHT " 

2470 LOCATE 4,47 : PRINT USING" 1. MAIN 

ROTORS tttttttttt .tt" ; W(1,NN) 

2475 LOCATE 5,47 : PRINT USING" 2. 

FUSELAGE tttttttttt . tt" ; W(3,NN) 

2480 LOCATE 6,47 : PRINT USING* 3. LANDING GEAR 

tttttttttt .tt" ; W( 4 , NN ) 

2485 LOCATE 7,47 

NACELLES tttttttttt.tt", 

2490 LOCATE 8,47 

ENGINES tttt 

2495 LOCATE 9,47 : 

TRAIN tttttttttt .tt" 

2500 LOCATE 10,47 



NUMBER OF CREW AND 
OF SPECIAL AVIONICS 
SPECIFICATION USEFUL 



OUTPUT SUBR 



7,7 



■tttttt 

2503 W( 6 , NN} = W6A( NN 
2505 LOCATE 
CONTROLS tttt 



PRINT 


USING" 


4 . 


ENGINE 


W( 5 , NN ) 


'tttttt.tt": 


PRINT 
W6A(NN ) 


USING" 


5 . 


PRINT 


USING" 


6 . 


DRIVE 


; W6B ( NN ) 


PRINT 


USING" 7. 


FUEL 


TANKS 



'Ik 4 



W6C ( NN , 

' + W66(NN) 
PRINT 
W(7 ,NN ) 



2510 LOCATE 12,47: PRINT 

(APU) tttttttttt .ft" ; W( 8 , NN ) 

2515 LOCATE 1 3 , 4T ; 

INSTRUMENTS tttttttttt.tt 

2520 LOCATE 14,47: PRINT 

SYSTEM tttttttttt.tt *: W( 1 0 ,NN} 

2525 LOCATE 15,47: PRINT 

SYSTEM.... tttttttttt.tt": W( 1 1 , NN ) 

2530 LOCATE 16,4,7: 

AVIONICS tttttttttt.tt": „ 

2535 LOCATE 17-47; PRIN 

FURNISHINGS tttttttttt.tt": W(13,NN 



+ W6C ( NN ) 
USING" 

USING" 9 

PRINT 
W 9 , NN } 
USING" 1 1 

USING" 1 2 . 



PRIN r 
W( 1 2 , NN 



) 



USING* 1 5 '. 
USING" 1 6 . 



AC 

LOAD 



2540 LOCATE,, 18,47: PRINT 

EQUIP.... tttttttttt.tt *: W( 1 4 , NN ) 

2545 LOCATE 19,47: PRINT 

EQUIP., tttttttttt.tt": W( 1 5 , NN ) 

2550 LOCATE 

PRINT" " 

2555 LOCATE 21,47: PRINT USING" TOTAL COMPONENT WEIGHT 

= tttttttttt.tt": we(nn) 



8. FLIGHT 
AUX POWER 
USING" 1 0 . 
HYDRAULIC 
ELECTRICAL 
USING" 1 3 . 
USING" 1 4 . 
/ DE-ICE 
HANDLING 
20,47: 
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2560 (( LOCATE (i 13,2: 

2565 LOCATE~T4~5T~PHiNT~~USiNG''SPEC”MAx”"GR6ss”wT ( MGW ) 
= M#M .# lbs " : MGW 
2570 LOCATE 15,5: PRINT USING" 

= ###M.#" :WE(NN) 

imrnw frili 51 print using " 

PRINT USING" 



2580 LOCATE 17,5 
= #tt#M . : PAX 

2582 LOCATE 18,5: 

= #####.#" ;UL 
2585 LOCATE 

PRINT" ' 

2587 LOCATE 20,5: PRINT 

= tttftttttt .# lbs " ; NGWE(fNN ) 

2590 LOCATE 21,5: PRINT 

= #####.# SHP";£>T 

2600 LOCATE 23,22: PRINT "* press 

hard copy * 

FLG3=1 : RETURN 



PRINT USING" 
LOCATE 
USING" 

USING" 
" * 



NEW A/C EMPTY WT 
FUEL WT 
PERSONNEL WT 
USEFUL LOAD 
19,2: 

NEW GROSS WT ESTIMATE 
TOTAL POWER FOR HOVER 
< Shif t-Pr tSc > for 



2620 

2999 

3000 ’ ***************** WEIGHT 
**************************** 

3001 ’ 

3005 N = 0 : PRINT " ~W=COMP/ " 

3010 FOR N = 1 TO 5 
3020 IF 

WE( 1 )= . 7407*MGW-2500 
3040 GOSUB 1800 

GW(N ) 

3050 HP = PT 

3060 GOSUB 4000 : 

previous GW and HP 
3070 NEXT N 

3100 NN = 0 : PDW (0 ) = 

31 1 0 N = 0 : FOR N = 1 

3120 IF PDW(N) < 10 



COMPUTATION 



SUBR 



MTW < > 0 THEN 

: ’ computes PT , PI 



WE( 1 ) =MTW ELSE 
and PO based on 



computes new GW est based on 



1 0 

TO 5 

THEN 3130 ELSE 3140 
PDW ( N- 1 ) THEN NN = N ELSE 



N) < 

3130 IF PDW(N) < 

3140 NEXT N 

3150 IF NN = 0 THEN LOCATE 1,1,0: PRINT " ~W=NOTCONVG/ " 

INPUT" ",X3: NN = 1 
3160 ’ 

3200 PRINT " ~C= ALL/ " : GOSUB 2465 : RETURN 

results 
3990 ’ 

4000 ’ ***************** HELO COMPONENT WT 

************************ 

4010 ’ 

4020 PAX = PEOPLE * 250 

4030 SB = 567.688 * EXP(. 000041 * GW( N ) ) 

4050 W( 1 , N ) = 1414.348 * EX P( .00539*B*C*R) 

0 



: ’ output 
EQN’S SUBR 



4060 W( 3 ,N 
4070 W( 4 , N 
4080 W(5,N 
4090 W6A( N 
4100 W6B(N 
4110 W6C( N ) 

W6A(N ) +W6B( N ) +W6C ( N ) 
* * ~ " 00334 



= 3467.29 * LOG(SB) - 22118.3 

- a i t: * n.u/ u \ a ^ a ^ o * nfAD 



= .4013 * GW( N ) 

= .014 * (.2014 _ 

= 565.507 * EX P ( . 000 1 9 
= .999 * (HP)?. 959 



6662 * GEAR 
* GW(N))~1 



N ) ) ~ 1 .13i 
98 * HP) 



W( 2 , N ) = 
556 



4120 W( 7 , N 
4130 W(8,N 



54 . 6 1 9 * ( FUEL /6 . 5 ) /v - . 0566 
* ( GW ( N ) )~1 .224 



W( 6 , N ) = 



4140 W( 9 ,N , 
4150 W( 1 0 , N 
4160 W ' ” 
4170 W( 1 2 , N 
4175 W( 1 3 , N 
4180 W( 1 4 ,N 



= 139! 

= 68.226 * LOG ( HP) - 387.598 

(GW(N) ) /v 1 .863 
... 539 
= 325 + SPECIAL 
= .159 * SB +18,11 * PEOPLE 

= 117.771 * LOG(SB) -710.594 



10, N) = 6.63E-07 
1 1 ,N ) = 9.78 * (SB) 
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4190 W(15,N) = .111 * SB + 3.49 * PEOPLE - 72 

4200 1=0 :WE(N)=0 :FOR 1=1 TO 1 5 : WE( N ) = W( I , N ) +WE( N ) : NEXT 

I:’ weight summation 

4210 GW(N+1) = WE(N) + UL + PAX + FUEL 
4215 NGWE(_N) = WE(NJ + UL + PAX + FUEL 
4220 PDWTN) = 1 00 *ABS( 1 - ( GW ( N + 1 ) / GW ( N ) ) ) 

4300 RETURN 

4500 LOCATE 1,1,0: PRINT " ~W=TRYAGAIN/ " : LOCATE 23,1: 

PRINT SPC ( 77 ) : RETURN 

9000 CLS: GW = MGW : FLG2= 1 : PRINT " ~C=ALL/ " : 

PRINT " ~W=LOADNOTE/ " : CHAIN"TR1 " , , ALL 
9999 END 

10 ’ PROGRAM "TR5 . BAS" . . . 1 7 SEPT 87 

20 

I**#***##**##########*##*#**#*######***#*##**##****#*#* 

30 ’*** POWER REFINEMENTS PROGRAM w/HIGH SPEED EFFECTS 

* * * 

40 

>#********################*****###############*##*##*** 

44 DIM 

TAS( 300) , P I ( 300 ) ,PO(300) ,PP(300) , PT(300) , PS (300) , PM( 3- 

50 ^ KEY .OFF : A$= " ft ##### . #" : B$="######" : 

51 IF ENGN= 0 THEN ENGN = 2 

52 ’ GW = 23000 : R= 25.5 : C= 1.5 : CDO= 8.999999E-03 

: B= 3 : RPM = 267.4: S1=34: GAP=4: FHH=12: 

PASPEC=4000 : FF=44 : AGL=10: FLG3=1: MXHVR=10000 

: CLALFA=5 . 73 : A0AST=14: TWIST=-9.5: MCRT=.8 

58 ’ TASCR = 130: TASMX = 150 

70 COLOR 15,1 : PRINT"~L=TANDEM3/ " : PRINT "~C=ALL/" 

90 ’ *** INPUT VARIABLES *** 

100 CLS: CNT = 0 

120 LOCATE 1,12: PRINT" * HIGH SPEED EFFECTS AND POWER 

SUMMARY * { Alt -FI for HELP)" 

130 PRINT 

140 PRINT " 1. GROSS WEIGHT [lbs] 

GW = " 

1 50_ PRINT " 2. ROTOR RADIUS 

[ft] R = " 

160 PRINT " 3. BLADE DATA: CHORD [ft] 

C = " 

170 PRINT " 4. PROFILE DRAG COEFFICIENT 

CDO = " 

180 PRINT " 5. LIFT CURVE SLOPE [per RAD] 

CLALFA = " 

190 PRINT " 6. STALL ANGLE OF ATTACK [deg] 

AOAST = " 

200 PRINT " 7. GEOMETRIC TWIST [deg with 

signl TWIST = " 

210 PRINT " 8. CRITICAL MACH NUMBER 

MCRT = " 

220 PRINT " 9. NUMBER OF ROTOR BLADES PER HEAD 

B = " 

230 PRINT " 10. OPERATING RPM [rpm] 

RPM = " 

240 PRINT " 11. ROTOR SHAFT SPACING [ft] 

SI = " r 

250 PRINT " 12. ROTOR HEAD VERTICAL SPACING [ft] 

GAP = " 

260 PRINT " 13. HEIGHT OF FORWARD HEAD ABOVE WHEELS 

I ~| FHH = M 

270 PRINT " 14. SPEC PRESSURE ALT [normally 4000 ft 

MSL 1 PASPEC = n 

280 PRINT 15. HOVER ALTITUDE [ft AGL] 

AGL = " _ 

290 PRINT " 16. SPEC CRUISE AIRSPEED [knots] 

TASCR = " 
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300 PRINT " 17. SPEC MAX AIRSPEED [knots] 

310 PRINT " 18. EQUIVALENT FRONTAL AREA [ft~2] 

FF = " 

320 ’ PRiNT ' ' ’ 19. SPEC MAX HOVER ALTITUDE ( IGE ) [ft] 

MXHVR = " 

325 COLOR 14,1 

330 PRINT " 20. COMPUTE NEW POWER REQUIREMENTS 

21 . RETURN TO MAIN MENU" 

335 COLOR 15,1 

340 IF FLG3 = 1 THEN 350 ELSE 560 

350 ’load data from previous chapter, if applicable; 
allows input ! 

370 IF GW <>0 THEN LOCATE 3,61: 

ELSE GOSUB 710 

380 IF R <>0 THEN LOCATE 4,61 

ELSE GOSUB 750 

390 IF C <>0 THEN LOCATE 5,61: 

ELSE GOSUB 790 

400 IF CDO <>0 THEN LOCATE 6,61: 

ELSE GOSUB 830 

410 IF CLALFA< > 0 THEN LOCATE 
AS : CLALFA ELSE GOSUB 870 
420 IF AOAST <>0 THEN LOCATE 

AS : AOAST ELSE GOSUB 910 
430 IF TWIST <>0 THEN LOCATE 

AS : TWIST ELSE GOSUB 950 
440 IF MCRT <>0 THEN LOCATE 10,61: 

ELSE GOSUB 980 

450 IF B <>0 THEN LOCATE 11,61: 

ELSE GOSUB 1010 

< >0 THEN LOCATE 12,61 
1 1 80 

<>0 THEN LOCATE 13,61: 

1 080 

<>0 THEN LOCATE 14,61 



or 

GW 

R 

C 

CDO 



<>0 THEN LOCATE 15,61 

LOCATE 



PRINT USING AS; 

PRINT USING AS; 
PRINT USING AS; 
PRINT USING C$ ; 
7,61: PRINT USING 

8,61: PRINT USING 

9,61 : PRINT USING 

PRINT USING AS ; MCRT 
PRINT USING B$;B 
PRINT USING AS ; RPM 
PRINT USING AS ; S 1 
PRINT USING AS ; GAP 
USING AS ; FHH 
PRINT USING 
USING B$ ; AGL 
PRINT USING 
PRINT USING 



PRINT 
16 , 61 : 
PRINT 
18 , 61 : 
19 , 61 : 



460 IF RPM 
ELSE GOSUB 
470 IF SI 
ELSE GOSUB 
480 IF GAP 
ELSE GOSUB 1110 
490 IF FHH 
ELSE GOSUB 1140 
500 IF PASPEC < > 0 THEN 

B$ : PASPEC ELSE GOSUB 1180 
510 IF AGL <>0 THEN LOCATE 17,61 
ELSE GOSUB 1 1 90 

520 IF TASCR <>0 THEN LOCATE 

B$ ; TASCR ELSE GOSUB 1200 
530 IF TASMX <>0 THEN LOCATE 

B$: TASMX ELSE GOSUB 1210 
540 IF FF <>0 THEN LOCATE 20,61: PRINT USING AS ; FF 

ELSE GOSUB 1220 

545 IF MXHVR <>0 THEN LOCATE 21,61: PRINT USING 

B$ ; MXHVR ELSE GOSUB 1225 
550 CNT = 1 : J = 0 

560 IF CNT = 0 THEN 570 ELSE LOCATE 23,1: PRINT SPC(77): 
GOTO 610 

570 FOR J = 1 TO 19 

580 LOCATE 23 , 20 : PRINT "ENTER YOUR VALUE FOR ITEM 
NUMBER " ; J 

590 X = J : GOTO 630 

610 LOCATE 23,18: INPUT "WHICH DO YOU WISH TO CHANGE / 
SELECT M • x 

630 IF i < 1 OR X > 21 THEN GOSUB 4500: IF J = 0 

THEN 610 ELSE 580 

640 ON X GOSUB 710.750.790,830,870.910,950,980, 

1010, 1050, 1080, 1110,1140,1180,1190,1200,1210,1220, 1225, 
1 230,9000 

650 IF CNT = 0 THEN NEXT J ELSE 550 
660 GOTO 550 
670 ’ 
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680 ’ *** DATA ENTRY SUBROUTINES *** 

710 LOCATE 1,1.0: PRINT " ~K= { ALT-F 1 }, HW1 7" : LOCATE 3,61: 
PRINT SPC (8 ) : LOCATE 3,60: INPUT" ".GW : 
PRINT"~K=IaLT-F1 >/ " : IF GW <=0 THEN PRINT"~W=DVN0/ " : 
GOTO 710 ELSE RETURN 

750 LOCATE 1 ,1 . 0 : PRINT"~K={ ALT-F1 },HW2/" : LOCATE 4,61: 
PRINT SPC(8_): LOCATE 4,60: INPUT" ", R : 
PRINT"~K=iALT-F1 }/" : IF R < = 0 THEN PRINT " ~W=DVN0/ " : 
GOTO 750 ELSE RETURN 

790 LOCATE 1,1.0: PRINT " ~K = { ALT-F 1 } ,HW3/ " : LOCATE 5,61: 
PRINT SPC(8_): LOCATE 5,60: INPUT" ",C : 
PRINT" ~K=TaLT-F1 }/" : IF C < = 0 THEN PRINT " ~W=DVN0/ " : 
GOTO 790 ELSE RETURN 

830 LOCATE 1,1,0: PRINT" ~K= < ALT-F1 },HW4/ " : LOCATE 6,61: 
PRINT SPC ( 8 ) : LOCATE 6,60: INPUT" 
" ,CDO: PRINT"~K=< ALT-F1 }/" 

850 IF CDO <= 0 THEN PRINT" ~W=DVN0/ " : GOTO 830 ELSE 
RETURN 

870 LOCATE 1,1.0: PRINT" ~K=< ALT-F1 }, CLALPHA/ " : LOCATE 
7,61 : PRINT SPC(8) 

880 LOCATE 7,60:INPUT" " , CLALFA : PRINT" ~K= { ALT-F1 ) 



<= 0 THEN PRINT " ~W=DVN0 / " 



GOTO 870 



& 



890 IF CLALFA 
ELSE RETURN 

910 LOCATE 1,1,0: PRINT " ~K = { ALT-F 1 }, STALLAOA/ " : LOCATE 

8 61 • PRINT SPC(o) 

9^0 ‘LOCATE 8,60: INPUT " " , AOAST : PRINT " ~K= < ALT-F1 )/ " 

930 IF AOAST <= 0 THEN PRINT " ~W=DVN0/ " : GOTO 910 ELSE 

RETURN 

950 LOCATE 1,1,0: PRINT" ~K={ ALT-F 1 } , BLDTWIST / " : LOCATE 

9,61: PRINT SPC[8) 

960 LOCATE 9,60: INPUT" ", TWIST : PRINT " ~K= { ALT-F1 }/" 

: RETURN 

980 LOCATE 1,1.0: PR INT " ~K = { ALT-F 1 } , MCR IT / " : LOCATE 

1 0,61 : PRINT SPC(8) 

990 LOCATE 10,60:INPUT" " , MCRT : PRINT " ~K= { ALT-F1 } 

1000 IF MCRT <= 0 THEN PRINT " ~W=DVN0/ " “ 

RETURN 

1010 LOCATE 1,1,0: PRINT " ~K= { ALT-F 1 } ,HW5/" : LOCATE 

11.61: PRINT SPC(8) 

1020 LOCATE 11, 60: INPUT" ",B : PRINT" ~K= { ALT-F1 }/ " 

1030 IF B <= 0 THEN PRINT " ~W=DVN0/ " : GOTO 1010 

ELSE RETURN 

1050 LOCATE 1.1,0: PRINT " ~K = { ALT-F 1 }, HW6/ " : LOCATE 

12,61 : PRINT SPC(&) 

1060 LOCATE 12,60: 

1070 IF RPM <= 0 “ 

RETURN 

LOCATE 



GOTO 980 ELSE 



^L; 



INPUT" 



RPM 



PRINT "~K=( ALT-F 1 >/" 
GOTO 1050 ELSE 



: i.i 

SPC ( 8 ) 

: 14,60 



11$0 LOCATE 
1 1 60 
RETURN 

1 1 80 LOCATE 1 , 1 

1 6.61 : PRINT SPC( 8 

1185 LOCAT] 

PRINT " ~K= { ALT-F 1 >, 

1 1 90 LOCATE 1,1. 

17.61 : PRINT SPCC.8) 

1 1 92 LOCATE 17,60 
: RETURN 



THEN PRINi"'~W=DVN0/" 

0: PRINT"~K={ ALT-F1 } , HW7 / 

INPUT" ",S1 : PRINT " ~K= { ALT-F1 >/" 

0: PRINT " ~K= { ALT-F 1 ),HW8/": LOCATE 

INPUT" " , GAP : PRINT " ~K= { ALT-F1 >/" 

0: PRINT " ~K= { ALT-F 1 },HW9/" : LOCATE 

INPUT" " , FHH : PRINT" ~K={ ALT -FI 



1 080 LOCATE 1 , 1 

1 3,61 : PRINT SPC( 

1090 LOCATE 13,6 
: RETURN 

1110 LOCATE 1 , 1 

14,61 : PRINT 
1 1 20 LOCATE 
: RETURN 

1 1 40 LOCATE 1 , 1 . 

1 5^61 : PRINT SPC(8 ) 

" LOCATE 15, 60: INPUT" "FHH : PRINT" ~K= { ALT-F1 > /" 

1160 IF FHH <= 0 THEN PRINT " ~W=DVN0/ " : GOTO 1140 ELSE 



PR INT " ~K= { ALT-F 1 } ,HW1 0/" : LOCATE 

" , PASPEC : 

LOCATE 

PRINT"~K={ ALT-F 1 }/" 



1 6,60 : INPUT" 

RETURN 

PRINT " ~K= { ALT-F 1 } ,HW1 1 /" : 



INPUT" " , AGL 
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1 200 LOCATE 1,1.0: 

18,61 : PRINT SPC(8) 

1205 LOCATE 18,60: 

: RETURN 

1210 LOCATE 1,1.0: 

19,61 : PRINT SPC( 8) 

1212 LOCATE 19,60: 

: RETURN 

1 220 LOCATE 1,1.0: 

20.61 : PRINT SPC(8 ) 

1222 LOCATE 20, 60: INPUT" 



PRINT"~K={ ALT-F 1 } , TASCRUZ/" : LOCATE 
INPUT" " , TASCR : PRINT " ~K = { ALT-F1 >/ " 

PRINT "~K=< ALT-F 1 ) ,HW1 2/" : LOCATE 

INPUT" " , TASMX : PRINT " ~K = { ALT-F1 >/ " 

PRINT"~K=( ALT -FI > ,HW1 5/" : LOCATE 

FF : PRINT"~K=( ALT-F 1 



1223 IF FF <= 0 THEN PRINi"'~W = DVN0/" : GOt6 1220 ^SE 
RETURN 

1225 LOCATE 1,1,0: PRINT " ~K = { ALT-F1 }, MXHVRALT/ " : LOCATE 

21.61: PRINT SPC(8) 

1227 LOCATE 21,60:INPUT" ",MXHVR: PRINT " ~K = ( ALT-F1 >/ " 

1228 IF MXHVR <= 0 THEN PRINT " ~W=DVN0/ " : GOTO 1225 

ELSE RETURN 

1230 **************** ADMIN/CONTROL SUBR 

******************************* 

1232 LOCATE 23,1: PRINT SPC(77) 

1233 LOCATE 23 , 1 3 : INPUT"press < Shi f t -Pr t Sc > for hard 
copy, ENTER to continue", X5 

1235 CLS : LOCATE 1,1,0: PRINT " ~W=COMP/ " 

1237 1=299 : TASf I ) = 0 : PA = MXHVR : TEMP = 59 : 

PSPECHVR = PT(I) 

1240 1=298 : TAS( I )=TASCR : PA=PASPEC: TEMP=95: 

1300: GOSUB 1800: PTCRSP=PT(I) 

1250 1 = 0: PA= 0 : TEMP=59 

1260 FOR I = 0 TO TASMX + 30 STEP 10 

1270 TAS(I) = I : GOSUB 1300 : GOSUB 1800 : 

’ compute power and hse 

1280 NEXT I : PRINT " ~C=ALL/ " : BEEP: CLS: GOSUB 3000 : ’ 

print out results 

1290 LOCATE 23,1: PRINT SPC(77) 

1292 LOCATE 23 , 1 3 : INPUT "press < Shif t-Pr tSc > for hard 
copy, ENTER to continue" , X5 

1294 GOTO 4000 : ’ calc losses due to inlets, EAPS and 

EEDS . 

1300 ’ *************** POWER COMPUTATION SUBR 

**************************** 

RHO0 = 2.37691E-03 : RAD = 57.296 



GOSUB 1300: 
GOSUB 



1301 PIE = 3.141592: 

: VV = FPM/60 = 0 

1302 CNT =CNT + 1 : RTRHT = 4- R * 

(AGL+RTRHT) 

1330 PGE = . 

. 1 276*GE~4 
1340 RV = RPM/9.55 
1.68893 

1345 DELT A= ( 1 -6.87535E-06*PA) /N 5.256 
( TEMP+459 .69)7518.69 



( 2*R ) 
1 47 



FHH + . 5 

+ 1 .3432 *GE - 1.457*GE~2 
: VT = RV * R VF 



^ " \ 

1 / R 
PIE- ' 



1350 SIGMA = DELTA / 
SIGMA*RHO0 
1370 MU = VF / VT : 

1430 T I PLOSS= 1 - ( SQR ( 

TIPLOSS : SR = S 

1460 AE= 2 *RE^2 * ( 

SI »SQR(RE^2-S1 ^2/4) 

1465 CT = GW / ( RHO 

sorTt/c 2*RH0*AE) ) 

1 470 K = 1 . 46- . 253 *SR : 

1500 KU = SQR (SQR 

. 5MAV/AE)~2*( VF/VI )^2 ) 

1510 CL = 6 * CT /S : 

GW /( 2*PIE * R^2) 

1610 PI(lT = T * VI * K * KU 
1620 IF GE <= 2 THEN PI(I) 



S = B 



THETA 

T = GW : 

2 * CT ) / B ) 

( PIE/180)*ACOS(S1 / ( 2 * RE ) ) ) 

AE * VT^2 ) : VI 



GAP : GE = 

+ .708*GE~3 - 
TAS(I) * 
THETA 

RHO = 
* C /(PIE 
RE = R * 



AV =PIE*R~2 -2 *R *GAP 
( . 25* ( AV/AE )^4* ( VF/VI )^4 + 1 ) 



AR = R/C 



2 i 



550 

GE » T 



BL=CT / S : DL = 

* VI * K * KU /550 
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VT~3 



RHO / 2200)*(1+ 



) 



= ( CDO * B 



= VF~3 * FF * RHO 
= PI(I) + PO(I) + 



! 'Q(i)7 



* C * R * 



1 1 00 

P(I) 



FM 



HIGH 



= PI(I) / 

SPEED EFFECTS ROUTINE w/ CONTROL 



1630 PO(I 
4.3 * mu~: 

1640 PPCI 
1660 PT ( I 

\ 68<S> RETURN 
1 800 ’ ****** 

ANGLES ******** 

1805 , IF TAS (I ) = 0 THEN 

PTMIN=PT( I ) : PTMAX = PT ( I ) : TASMINP=TAS( I ) : TASMAXP=TAS( I ) : 
RETURN 

1810 IF TAS(I) < 59 THEN RETURN 

1820 B 1 = TIPLOSS : T7 = TWIST/RAD : VIFF = (T/(2 * 

RHO * AE * VF)) 

1890 LAMDA = - (P P ( I ) * 5 5 0 / GW + VIFF)/VT 

1900 T 1 = .5*(B1 ~2+.5*MU~2) : T2 = B1~3 /3 + 

. 5*MU' S 2*B1 

1920 T3 = . 25 * B1~2 *(B1~2 + MU~2 ) : T4 = .5* MU* 

(B1~2 + MU~2/4) 

1940 J2 = 2 * CT / (CLALFA *S) 

= J2 - J3- ( T7 * T3 ) 

I960 All = ( 4 * ( ( MU *(B1 /N 2)/2)-( MU ^3 / 8) ) )/(B1~2*(B1~2-.5* 
MU ^2 >2 



J3 = LAMDA * T 1 



J 4 



1 970 



= 8 *MU * B 1 / ( 3* ( B1 

= (2*B1~2 * MU 

1985 A1 4= ( B i 



2- . 5*MU~2 ) ) 



1980 A13 = (2*B1~2 * MU)/(B1~2 - .5 * MU~2 ) 



2 + 1^5 * MU ~ 2 | / ( B1 22- . 5*MU~2 ) 



( T7*A1 3 } 

-T4*A1 2 ) 



1990 J5 = -LAMDA * A . 

2000 H8 = ( J4*A1 4-J5*T4 )/ ( T 2 * A 1 4 

H8*RAD 

2010 H2=( J5*T2-J4*A1 2 )/ ( T2*A1 4-T4*A1 2 ) 

H2*RAD 

2030 K0= LAMDA/ (1+MU) : F = H8-H2+K0+T7 

F*RAD 

2040 IF AOA270 < AOAST THEN PS(I)=0: GOTO 

2050 PS(I) = P0( I ) * ( T AOA270 - AOAST )/4) 

2060 GG = H8+H2+K0+T7 : AOA90 = GG*RAD 

2070 MACHVEL 

49. 042 * (5 18. 67 *( 1 -. 0000068755856#* PA ) )~.5 
2080 MTIPHVR = (RV*R) /MACHVEL 
RV*R+VF) /MACHVEL 

2090 M90 = MTIPHVR* ( 1 +MU ) : IF MTIPFLT 



: COLANGLE = 

: CYCLIC = 

AOA270 = 

2060 



I ) =0 : GOTO 2120 

10 DMD = M90-MCRT : CPM=S* ( . 0 1 2 *DMD+ 

PM( I ) = ( CPM* AE*RHO *VT /N 3)/550 
2120 PT(I) = PI(I) + PO(I) + 

2140 IF PT ( I ) < PTMIN THEN 



PP(I) + PS(I) 
PTMIN = PT ( I ) : 



MTIPFLT =( 

< MCRT THEN 

1 * ( DMD~3 ) ) : 

+ PM( I ) 
TASMINP = I 



TASMAXP = I 



2143 IF TAS(I) = TASCR THEN PTCR = PT(I) 

2145 IF TAS(I) > TASMX THEN 2180 
2150 IF PTCI) > PTMAX THEN PTMAX = PT(I) 

2180 RETURN 

3000 ’ ************ HIGH SPEED EFFECTS/ POWER RESULTS 

OUTPUT SUBR *********** 

3003 IF PSPECHVR > PTMAX THEN PTMAX = PSPECHVR: TASMAXP 



= 0 

3004 

3005 
3010 
301 1 
3012 
3014 
3018 
ELSE 
3020 
HIGH 
3025 
3030 

PS 



RSHP = PTMAX 

FOR I = 0 TO TASMX + 30 STEP 10 
IF TAS(I) = 0 THEN 3020 
IF TAS(I) = TASMINP THEN 3050 
IF TAS ( I ) = TASCR THEN 3050 
IF TAS ( I ) = TASMX THEN 3050 
12 = (I+20)/20 : IF 12 - FIX(I2) 

3080 

PRINT" * TOTAL POWER (SHP) 

SPEED EFFECTS *" 

PRINT 

PRINT" TAS(kts) PI PO 

PT " 



= 0 THEN 3050 
REQUIRED WITH 

PP 



PM 
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3040 



PRINT" 



m 



PRINT USING" 

:TAS( I ) , PI( I ) , P0( I ) , PP( I ) , PS( I ) , PM( I ) , PT( I ) 

3080 NEaT 

3090 LOCATE 20,12: PRINT USING"MINIMUM POWER = ###,### 
SHP AT #### knots" ; PTMIN , TASMINP 

PRINT USING"MAX IMUM POWER = ### , tttitt 
PTMAX , TASMAXP 

RINT USING" POWER AT HOVER CEILING = 
# ft MSL" ; PSPECHVR , MXHVR 
’returns to ADMIN/ CONTROL SUBR at 



3100 LOCATE 21,12 
SHP AT tiMti knots" 

3110 LOCATE 22,12 : 

###.### SHP A* kktt 
3190 RETURN : 

1 ine 1 250 
3900 ’ 

4000 CLS : ******** ENGINE 

OUTPUT **************** 
4005 PRINT" 

INSTALLATION LOSSES *" 
4010 PRINT 



INSTALLATION 
* POWER 



LOSSES SUBR & 
REFINEMENTS -- 



4015 PRINT" 
4020 PRINT" 
4025 PRINT" 
4030 PRINT" 
4034 PRINT 
4040 PRINT" 

- EAPS" 

4045 PRINT" 
10 % )" 

4050 PRINT" 
SEPARATORS 
4055 PRINT" 
PRINT 
PRINT" 



- INLETS AND INLE 

1 . -S- TYPE ( 5% , 

2. ICE SHIELD { 1 6 % 

3. STRAIGHT-IN { 2% 



DUCTING -" 






II 



{ 2 - 6% } 



4060 

4070 

EEDS' 

4075 

4080 

4085 

41 00 

GOTO 

4200 

4202 



- ENGINE AIR PARTICLE SEPARATORS 
4. FOAM TYPE BARRIER FILTERS { 
5. POWER ( HYDRAULIC ) 
6. NONE INSTALLED" 

III. - ENGINE EXHAUST DEVICES - 



4200: GOSUB 

23,1 : PRINT SPC(77) 

23,10: INPUT' n SEL 



7. SIMPLE HEAT DIFFUSER 

8. INFRA-RED SUPPRESSOR 

9. NONE INSTALLED" 

4230: GOSUB 4260: GOSUB 



PRINT" 

PRINT" 

PRINT" 

GOSUB 
4300 

LOCATE __ % _ 

LOCATE 23,10: INPUT '^SELECT 

SYSTEM M Y 1 

4204 IF’YI <1 OR Y1 > 3 THEN GOSUB 
4208 ON Y 1 GOSUB 4220,4224,4228 
4212 PINLET = INLET * 1 00 : RSHPINLT = RSHP * 
4216 LOCATE 6,42: PRINT USING "INLET LOSSES 

SHP #W#.W %" ; &SHPINLT , PINLET 



{ 3% >" 
{ 5% >" 



4280 : 



THE DESIRED INLET 
4500: GOTO 4200 



4218 RETURN 
4220 INLET 
5.9: PRINT" 
4224 INLET 
4,9: PRINT" 

4228 INLET 
4.9: PRINT" 

4229 



= . 05 : LOCATE 4,9 
LOCATE 6.9: PRINT" 
1 : LOCATE 5,9 
LOCATE 6,9: PRINT" 
= .02 -.LOCATE 6,9 
LOCATE 5,9: PRINT" 



PRINT " * * * " 
RETURN 
PR I NT " * * * " 
RETURN 
PRINT " * * * " 
RETURN 



LOCATE 

LOCATE 

LOCATE 



4230 LOCATE 23,1 : PRINT SPC(77) 

4232 LOCATE 23,10: INPUT SELECT THE DESIRED 

SYSTEM " 



4500: GOTO 



EAPS 

4230 



, Y1 : Y 1 = Y 1 -3 

4234 IF Y1 < 1 OR Y1 >3 THEN GOSUB 

4238 ON Y 1 GOSUB 4248,4250,4252 
4242 PEAPS = EAPS * 1 00 : RSHPEAPS = RSHP * EAPS 

4246 LOCATE 11,42: PRINT USING "EAPS LOSSES = ft#### 

SHP .n %" ; RSHPEAPS , PEAPS 

4247 RETURN 

4248 EAPS = .1: LOCATE 9,9: PRINT "»*»": LOCATE 

10,9: PRINT" ": LOCATE 11, 9: PRINT* ": RETURN 
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4250 EAPS =.04: LOCATE 10,9: PRINT "***": LOCATE 

9.9: PRINT" " : LOCATE 11, 9: PRINT" " : RETURN 
4^52 EAPS = 0 : LOCATE 11,9: PRINT "***": LOCATE 

9. 9: PRINT" " : LOCATE 10,9: PRINT" ": RETURN 

4259 ’ 

4260 LOCATE 25,1 : PRINT SPC(77) 

4261 LOCATE 25,10: INPUT " SELECT THE DESIRED EEDS 

SYSTEM " . Y1 : Y1 =Y1 -6 

4262 IF Y1 < 1 OR Y1 >5 THEN GOSUB 4500: GOTO 4260 

4264 ON Y 1 GOSUB 4277,4278,4279 

4272 PEEDS = EEDS * 1 00 : RSHPEEDS = RSHP * EEDS 

4274 LOCATE 16,42: PRINT USING "EEDS LOSSES = ##### 

SHP ### .# %" ; RSHPEEDS , PEEDS 



4276 RETURN 

4277 EEDS 
1 5,9 : PRINT" 

4278 EEDS 
1 4,9 : PRINT" 

4279 EEDS 
15,9: PRINT" 

4280 ’ * * * 



" : LOCATE 
total 



=.05: LOCATE 14,9 

": LOCATE 16. 9: PRINT* 

=.05: LOCATE 15,9 

" : LOCATE 16 ,9: PRINT* 

0 : LOCATE 16,9 

14,9: PRINT * 
losses 

******************************* 

4281 ENGNLOST = RSHP* ( INLET+EAPS+EEDS ) 
RSHP* ( . 05*ENGN+. 05 )+1 0 

4282 PCTENGN = ENGNLOST * 1 00/RSHP 
MISCLOST* 1 00/RSHP 

4284 RSHPLOST = ENGNLOST + MISCLOST 
4286 ESHP = RSHP + RSHPLOST 
RSHPLOST* 1 00/ESHP 

4288 LOCATE 18,12: PRINT USING "ENGINE 

INSTALLATION LOSSES = 

%" : MISCLOST , PCTMISC 
4290 LOCATE 19,12: PRINT USING" „ 

(percent of ESHP) = ##### 



PRINT"***" : LOCATE 
" : RETURN 

PRINT"***" : LOCATE 
" : RETURN 

PRINT"***" : LOCATE 
" : RETURN 

computation subr 



XMSN 

SHP 



MISCLOST = 
PCTMISC = 

PCTLOST = 

and MISC 

###.# 



TOTAL LOSSES 
SHP ###.# 



MAXIMUM POWER 
ENGINE SHAFT 

Changes ? (0=no, i=yes) 



: RSHPLOST , PCTLOST 
4292 LOCATE 20.12: PRINT USING" 

REQUIRED [RSHP] = ### , ### SHP", -RSHP 
4294 LOCATE 21,10: PRINT USING"* ENGI 

HORSEPOWER REQUIRED [ESHP] = tttt # , ### SHP";ESHP 
4296 FLG5 = 1 : RETURN 

4500 LOCATE 25,1: PRINT SPC(77) 

4505 LOCATE 25,15: INPUT "ANY 

" ANS 

4510 IF ANS = 0 THEN 4570 ELSE IF ANS= 1 THEN 4540 ELSE 
GOSUB 4500: GOTO 4500 

4540 LOCATE 25,45: INPUT" WHICH ITEM ? (1,2 or 5) 

»» 

4$44 IF X5 < 1 OR X5 > 5 THEN GOSUB 4500: GOTO 4540 
4550 ON X5 GOSUB 4200,4250,4260 
4560 GOSUB 4280 : GOTO 4500 
4570 LOCATE 25,1: PRINT SPC(77) 

4575 LOCATE 25 , 1 5 : INPUT "press < Shif t-Pr tSc > for hard 
copy, ENTER to continue", X5 
4580 GOTO 100 

4500 LOCATE 1,1,0: PRINT"~W=TRYAGAIN/ ' 

PRINT SPC(77): RETURN 
9000 CLS : PR INT " ~C= ALL/ " : 

CHAIN"TR1 " , , ALL 
9999 END 

10 ’ PROGRAM"TR6 . BAS" 17 SEPT 87 

20 KEY OFF : B$="#####" : C$="£. 

50 

>##********#************#****##*############*##*#*****_ 



: LOCATE 25,1: 
PRINT " ~W=LOADNOTE/ " : 



tt##' 



####******# 
40 ’ * 



*** ENGINE & XMSN SELECTION 



# * * 



50 
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>***************************************************##_ 

*********** 

70 ’ *** CHAPTER SIX MAIN PROGRAM 

* * * 

80 ’ 

1 00 PRINT " ~C= ALL / " : PRINT " ~L=TANDEM6/ " 

1 20 COLOR 1 , 1 

23,1,0: PRINT " ~W=ENGMENU / " : INPUT" " , X 
130 COLOR 15,1 : ON X GOSUB 200,300,400 : 

1 60 ’ 

200 COLOR 1,1, , . 

23,1 ,0: PRINT " ~W=ENGNSELN / " : INPUT"" ,X6 :R£TfiRN 
210 5 



1 : CLS: LOCATE 
GOTO 120 
1 : CLS: LOCATE 



300 ’temporary data for weight summation, power etc. 
310,1ENQN_=_2 : W(1,1)=2625 : W(3,1)=3333 : W(4,1)=600 

W( 7 , 1 ) = 780 : W( 8 , 1 ) = 1 30 : W(9,1) = 140 

W( 1 2 , 1 ) = 400 : W( 1 3 , 1 ) =700 



W( 5 , 1 ) = 2 1 00 
320 ’ W( 6 . 1 ) = 2800 

: W( 1 0 , 1 ) = 1 00 
330 ’ W( 1 1 ,1 ) = 500 : 

W( 1 4 , 1 ) = 1 50 : W( 1 5 , 1 ) = 1 90 

340 ’ W6A( 1 ) = 900 : W6B( 1 ) = 1 60 0 :W6C( 1 ) = 300 

MGW =23000 :R = 25 . 5 : C = 1 .5:CDO=.009 

342 ’ B=3 :RPM=267.4 

SI =34 : GAP = 4 : FHH= 1 2 : PA=0 : TAS=0 : AGL= 1 0 : NENG= 2 : ESHP= 2600 
344 

’ PAX = 6250 : FUEL =2500 : UL= 1 000 :RHO= . 002377 : PIE=3 • 14159: 
RHO0 = . 002377 
350 GOTO 500 
360 ’ 

400 LOCATE 

23^1 ? 0 : CLS : PRINT " ~W=LOADNOTE/ " :CHAIN"TR1 " , , ALL 

500 ’ ************* SECTION 6.1 & 6.2 

*************************** 

510 CLS 

512 LOCATE 1,28: PRINT"* NUMBER OF ENGINES * 

(SECTION 6.1 > " 

516 LOCATE 2,10: PRINT" 1. NUMBER OF ENGINES = " ; ENGN 

520 LOCATE 2,44: PRINT" ( specif ied in Chapter 3) 

530 LOCATE 3,28: PRINT" * TYPE OF ENGINES * 

(SECTION 6.2)" 

540 LOCATE 4,10: INPUT"2. NUMBER OF ENGINES COMPETING 

FOR SELECTION " : NENGSEL 

550 LOCATE 23,33: PRINT" " : LOCATE 23,5: INPUT "ANY 

CHANGES ? (0=NO , 1 =YES ) " , ANS 

560 IF ANS= 0 THEN 605 ELSE IF ANS= 1 THEN 570 ELSE 
BEEP: GOTO 550 

570 LOCATE 23,38: INPUT"WHICH ITEM ? (1 or 2) ",X6 

580 ON X6 GOSUB 590,595 : LOCATE 23,1: PRINT ““ 

: GOTO 550 

585 ’ , . 

590 LOCATE 2,33: PRINT SPC(3): 

INPUT" " .ENGN : RETURN 

595 LOCATE 4,55: PRINT SPC(3): 

INPUT"" ; NENGSEL: RETURN 
600 ’ 

605 LOCATE 



pr: 

LOCATE 

LOCATE 



SPC( 75 ) 

2,34: 
4,56: 



PRINT' 



5 , 2 : 



606 LOCATE 23,1: PRINT SPC(75) 

610 LOCATE 6,25: PRINT"* ENGINE SELECTION PARAMETERS *" 

611 PRINT" ENGINE:" 

613 PRINT" 3. DRY WEIGHT (lbs) 

614 PRINT" 4. SHP (ssl) military.... 

615 PRINT" 5. SFC (ssl) military.... 

616 PRINT" 6. INITIAL COST SK 

620 PRINT" 7. OP COST/HR/ENG $ 

622 PRINT" 8. PREY MAINT /HR/ ENG . . $ 
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631 PRINT" 9. 

632 PRINT" 10. 

633 PRINT" 1 1 . 

634 PRINT" 12. 

640 K = 32 : KK = 30 : FOR 



I! 

ft 



ELSE IF 1=2 THEN A$=* 
1=4 THEN A$= "D" ELSE 



MTBMA ( hr s ) 

MDT (hrs ) 

MTBF (hrs) " 

MTBR (hrs) " 

1=1 TO NENGSELrIF 1=1 



B" : ELSE IF 1=3 THEN 
IF 1=5 THEN A$= "E" 
PRINT A$ 



THEN A$= "A" 



A$= "C" ELSE IF 



650 LOCATE 7,K 

651 LOCATE 8 , KK : INPUT 

652 LOCATE 9,KK: INPUT 

653 LOCATE 1 0 , KK : INPUT 

654 LOCATE 1 1 , KK : INPUT 

655 LOCATE 12,KK:INPUT 

656 LOCATE 13,KK:INPUT 

657 LOCATE 14,KK:INPUT 

660 LOCATE 15,KK:INPUT 

661 LOCATE 16,KK:INPUT 

662 LOCATE 17,KK:INPUT, 

670 LOCATE 2 3 , 5 : INPUT " ANY CHANGES ? (0=NO,1=YES) 

680 IF ANS= 0 THEN 720 ELSE IF ANS= 1 THEN 690 
BEEP: GOTO 710 

690 LOCATE 23,38: INPUT"WHICH ITEM ? (3 thru 12) 

: X6 = X6-2 

700 ON X6 

780,784.788.792,794,796,798,800,802.804 
710 LOCATE 23,1: PRINT SPC(75): GOTO 670 

720 K=K+1 0 : KK=KK+10 : LOCATE 23,1 

725 ’ 

730 FOR 1=1 TO 3: LOCATE 

I: LOCATE 23 , 1 : PRINT SPC(75) 

731 LOCATE 19,10 

732 INPUT "13. SPECIFICATION 

YEAR " : AFL 

734 LOCATE 20.10 

735 INPUT " 1 4 . SPECIFICATION 
LIFE IN YEARS ":SL 

737 LOCATE 21,10 

738 INPUT "15. AVERAGE 

" ; TAV 

740 ’ 

745 LOCATE 23 ,5 : INPUT " ANY CHANGES ? (0=NO, 1 =YES) ", ANS 

747 IF ANS= 0 THEN 750 ELSE IF ANS=1 THEN 730 ELSE 
BEEP : LOCATE 23,1: PRINT SPC138) : GOTO 745 

750 LOCATE 23.1: PRINT SPC(75) 

752 LOCATE 23 , 1 3 : INPUT "press < Shif t-Pr tSc > for hard 
ENTER to continue", X6 



sh£>? I ) 

OC( I ) 

PMj 

MTBMAl 
MDT (I 

mtbfT _ . 

MTBR( I ) 

ANS 
ELSE 

" ,X6 

GOSUB 

PRINT SPC ( 75 ) : NEXT 
1 8+1 , 67 : PRINT SPC(9):NEXT 
AVERAGE FLIGHT HOURS PER 
AVERAGE AIRFRAME SERVICE 
FLIGHT HOURS PER FLIGHT 



R & D costs 



coi 
755 

760 FOR 1=1 TO NENGSEL : RD(I)=0 

included in the IC , , v 

764 YM( I )=PMA( I )*AFL/1 000 : Y0( I ) =OC( I ) * AFL/ 1 000 : 

.TBR(I ) 

) =NENG* ( C INT ( NR PL 1 ) ) 



1 



NRPL1 =AFL*SL ( 
766 NRPL ( 



,VAIL ( I )=MTBMA( I ) / (MTBMA ( 



161 x 

LC ( I ) =ENGN 
H(1 . 35 * ~ ~ 

768 AVA 

770 MAINT ( 

RELY ( I ) =EX P( -TAV/mTBF 

771 RC ( I ) = 1 . 35 * I C ( 

772 NEXT I : GOTO 840 

774 ’ 

775 ’ #####*****## ENGINE 

CHANGE SUBR *********** 

776 ’ 

780 LOCATE 8 

8,KK: INPUT; "" ,DW( I ) : RETURN 



I )+YM( I ) ) ) + ( NRPL ( I ) 



, I ) +MDT ( I ) ) 

=(MDT( I )/ (MTBMA ( I ) +MDT ( I ) ) ) *TAV: 

: SV( I ) = . 8 * I C ( I ) 



SELECTION PARAMETER INPUT 



KK 



PRINT SPC ( 7 ) : LOCATE 
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784 

9 .KK: INPUT ; 
788 



1 0 ,KK 
79£ 

1 1 ,KK 
794 
1 2 , KK 
796 
1 3 ,KK 
798 
1 4 ,KK 
800 
1 5,KK 
802 
1 6 .KK 
804 
1 7 , KK 
81 0 ’ 



INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 



LOCATE 9 , KK : 
, SHP( I J : RETURN 



_ CATE 10, KK 

, SFC(I): RETURN 

LOCATE 1 1 , KK 

, IC(lj : RETURN 

LOCATE 1 2 , KK 

, OC(I] : RETURN 

LOCATE 1 3 , KK 

, PMA(I): RETURN 

LOCATE 1 4 , KK 

, MTBMA(_ I ) : RETURN 

LOCATE 1 5 , KK 

, MDT ( I } : RETURN 

LOCATE 1 6 , KK : PRINT 

,MTBF(I) : RETURN 

LOCATE 1 7 , KK : PRINT 

, MTBR ( I ) : RETURN 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



SPC( 7 ) : LOCATE 
SPC ( 7 ) : LOCATE 
SPC ( 7 ) : LOCATE 
SPC ( 7 ) -.LOCATE 
SPC ( 7 ) : LOCATE 
SPC ( 7 ) : LOCATE 
SPC( 7 ) : LOCATE 
SPC( 7 ) : LOCATE 
SPC( 7 ) -.LOCATE 



820 

840 FOR 1=1 TO NENGSEL 

841 IF DW( I ) < = 300 THEN QOTO 850 

842 IF DW( I ) > “ ‘ “ 

844 IF DW ( I 

DW( I ) > 1 1 00 GOTO 880 



ELSE 

00 AND DW( I) < =700 GOTO 860 ELSE 
>700 AND DW( I ) < = 1 100 GOTO 870 ELSE IF 



850 
860 
870 
880 
890 NEXT 
940 
950 
960 
970 
980 
99G? 

991 



EWT ( I ) = DW( I ) * 1 .29 
EWT ( I ) =DW( I ) * 1 .27 
EWT ( I ) = DW( I j * 1 .24 
EWT ( I ) = DW ( I ) * 1 . 2 : 



GOTO 890 
GOTO 890 
GOTO 890 
GOTO 890 



*** SECTION 6.3 & 6.4 *** 



CLS: LOCATE 1 
6.3 & 6.4 }" 

LOCATE 

. II 



25 : PRINT " * ENGINE SELECTION CRITERIA * 
3,38: PRINT" ENGINE 



992 LOCATE 
E" 



4,39: PRINT "A 



B 



D 



993 

994 

995 
1 000 
1 001 
1 002 
1 003 
1 004 



1 

2 

3 

4 



005 

006 
010 
01 
01 
01 
01 
020 
021 
022 

023 

024 
1 025 
1 026 
1 030 
1 031 
1 032 
1 033 
1 034 



PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

K 1 =37 



POWERPLANT 
LIFE-CYCLE 
ENGINE 
No . OF 



K$ 



LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 



WEIGHT( installed) 

COST 

LIFE (hrs) 

REPLACEMENTS 

R/D COSTS K$ 

INITIAL COSTS KS 

ANNUAL MAINT. COST KS 

ANNUAL OPERATING COST KS 

REPLACEMENT COST KS 

SALVAGE VALUE K$ 

AVAILABILITY (per engine) 

per engine ) 

TY (per engine) 
mi 1 l tary 
GSEL 
USING : 

USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 
USING 



RELIABILITY 
MAINTAINABIL 
PERFORMANCE 



FOR 1=1 

6 ,K1 

7 , K1 

8 , K 1 

9 , K 1 
1 
1 
1 
1 
1 
1 
1 



4' 

1 

2 

3 

4 

5 

6 



K 1 
K 1 
K 1 
K 1 
K 1 
K 1 
K 1 



TO NE1 
PRINT 
PRINT 
PRINT 
PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 



SHP) 




) 



NR PI 
;RD( 
; ic 


I j 


; YM( 


I ) 


; YO( 


I ) 


; RC( 


I ) 


; SV 


I j 


; AV) 


ill 



(I) 
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RELYjf I ) 

MAINTC I ) 

SHP ( I ) :K1 =K 1 +9 



1035 LOCATE 17,K1:PRINT USING C! 

1040 LOCATE 18, K1 :PRINT USING CJ 

1041 LOCATE 19, K1 SPRINT USING Bi 

1050 NEXT I 

1060 IF NENGSEL= 1 THEN EN=1:GOTO 1080 ELSE 

1061 LOCATE 21,1: PRINT SPC( 77} : LOCATE 21,12 

1065 INPUT "ENTER THE LETTER OF THE SELECTED ENGINE 
(i.e. A , B , C ) " , D$ 



THEN 
1 080 
THEN 
1 080 
THEN 
1 080 
THEN 
1 080 
THEN 



EN = 1 : 
EN = 2 : 
EN = 3 : 
EN = 4 : 



GOTO 

GOTO 

GOTO 

GOTO 



EN = 5 



1070 IF f)$="A A 
THEN EN= 1 : GOTO 

1072 IF D$= " B" 

THEN EN=2 : GOTO 

1074 IF D$= " C " 

THEN EN=3: GOTO 
1076 IF D$= "D" 

THEN EN=4 : GOTO 

1078 IF D$= "E" 

THEN EN = 5 : GOTO 

1080 LOCATE 22 
1 085 LOCATE 
" , ANS 

1090 IF ANS = 0 THEN 
BEEP: GOTO 1080 

1095 LOCATE 23,1: PRINT SPC(77) 

1100 LOCATE 23, 13: INPUT "press 
copy, ENTER to continue", Xo 
111 ' 



1 080 ELSE 



: GOTO 

1 060 



1 080 
1 080 
1 080 
1 080 
1 080 



. 1 : PRINT SPC (75 ) 

23 , 5 : INPUT "ANY CHANGES ? 

1095 ELSE IF ANS= 1 



ELSE IF D$= " a" 
ELSE IF D$= "b " 
ELSE IF D$= "c " 
ELSE IF D$= " d" 
ELSE IF D$= " e " 



( 0=NO , 1 = YES ) 

THEN 1061 ELSE 



< Shif t-Pr tSc > for hard 



1130 ’ 

1 1 50 CLS 

1155 LOCATE 2 

(6.5)" 

1 1 60 LOCATE 4,3 
= #####.# SHP A : 
1 1 65 LOCATE 5,3 

= ##### " : en6n 



* * * 



* # # 



PRINT" * 



PRINT USING "ENGINES : 
ESH P 

PRINT USING" 



SECTION 6.5 
TRANSMISSION SELECTION * 

TOTAL SHAFT HP 
NUMBER INSTALLED 
INSTALLED WEIGHT 



1170 LOCATE 6,3: PRINT USING" 

= ft####.# lbs* ;EWT(EN) 

1 1 T 1 LOCATE 1 i • COLOR 111 

1172 PRINT * ~W= XMSNME&U / " : INPUT " " , XM : ON XM GOSUB 
1210,1212,1214. 1216,1218,1220 

1173 COLO& 15,1: PRiNT " ~C=ALL/ " 

1174 LOCATE 7,3: PRINT US ING" TRANSMISSION : POWER RATING 

= ft####.# SHP*; XMSNP 

1176 LOCATE 8,3: PRINT USING" WEIGHT 

_ kuua#.# lbs*; XMSNW 

LOCATE 9,2: 



XMSNW 



1 1 78 
PRINT 

1180 GOSUB 1250: GOSUB 1800:LOCATE 

1 , 1 .0 : PRINT"~C=ALL/" : GOSUB 2465 
1 0 2 



1 \ 8^ LOCATE 
ESTIMATES " 

1 184 LOCATE 12,3: 

= #####.#" ;WE2 

i 1 FUEL’ 3 

pU’ 3: 

= tt tt ft n ft . ft \ PAX 

vmrw fuL 15 - 3 

1 1 92 

PRINT" 

1194 LOCATE 17,3: PRINT 

= #####.# lbs " ; 6w( NN ) 

1 1 96 LOCATE 18,3: 

= ft####.# SHP" : PT 

1 1 97 LOCATE 1 9,3 
= tt#.#### psf";i)L 



PRINT" 

PRINT USING" 
PRINT USING" 
PRINT USING" 
PRINT USING" 
LOCATE 
USING" 
PRINT USING" 
PRINT USING" 



REVISED WEIGHT 
A/C EMPTY WT 
FUEL WT 
PERSONNEL WT 
USEFUL LOAD 
16 , 2 : 

GROSS WT ESTIMATE 
TOTAL POWER FOR HOGE 
DISK LOADING 
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1 1 

1200 
1 203 
copy 
1 204 



m 



ATE 20 
#" : FM 



PRINT USING" 



LOCATE 23,13 
ENTER returns 
GOTO 120 



INPUT "press 
to MENU" , X6 



FIGURE OF MERIT 



< Shif t-Pr tSc > for hard 



121 0 


XMSNP = 1150 : 


XMSNW 


= 


700 : 


RETURN 


1212 


XMSNP = 1900 : 


XMSNW 


= 


1100 : 


RETURN 


1214 


XMSNP = 3100 : 


XMSNW 


= 


1 700 : 


RETURN 


1216 


XMSNP = 4400 : 


XMSNW 


= 


3000 : 


RETURN 


1218 


XMSNP = 5700 : 


XMSNW 


= 


4000 : 


RETURN 


1 220 


XMSNP = 8500 : 

> 


XMSNW 


— 


6500 : 


RETURN 


1 225 










1 230 


> 






* # # 


SECTION 6.6 * 


1 250 


> *********** 


NEW 




WEIGHT 


1 SUMMATION 



******************************* 



1 260 
1 270 
1 271 
1 272 
1 273 
1 275 
1 280 
1 290 
1 800 



LOCATE 1,1,0: PR INT » ~W = COMP / " 

NN = 1 : W( 6 ,NN)=W6C(NN)+XMSNW+(ENGN*EWT(EN) ) 
FOR I = 1 TO 15 
WE2=WE2+W( I , NN ) 

NEXT I 

NGW=WE2+FUEL+UL+PAX 
N = NN : GW(N) = NGW : RETURN 



SUBR 



WE2 = 0 



POWER 



COMPUTATION SUBR 



1 . 457 * GE' 
RV * R 



■2 + 



.708*GE~3 - 
VF = TAS * 



1 890 
RHO = 
1 900 
1910 
1 920 
1 930 
1 940 
1 950 
1 960 



THEN 



> a###****#*#**###### 
a##########***###****####* 

1 820 ’ 

1830 CNT = CNT + 1 
1840 RTRHT = FHH + .5 * GAP 
1850 GE = (AGL+RTRHT) / (2*R) 

1860 PGE = .5147 + 1.3432*GE - 

. 1 276*GE~4 

1870 RV = RPM/9.55 : VT 

1 . 68893 

1880 SIGMA = (1 - 6 . 87535E-06 * 

IF PA= 0 THEN RHO = RHO0 
001918 ELSE RHO = SIGMA* RHO 0 
MU = VF 7 VT 
T = 1 . 055 * GW(N) 

S = B * C /(PIE * R) 

TIPLOSS =1-1 SQR ( 2 * CT ) 

RE = R * TIPLOSS 
SR = S 1 / R 

AE= 2 * RE ^2 * ( PIE-( PIE/ 180)*ACOS(S1 / ( 2 * RE ) ) ) 

SI *SQR(RE~2-( SI ~2 )/4 ) 

1965 CT = T / ( RHO * AE * 

1 970 K = 1.46- . 253 * SR 
1980 AV = PIE * R~2 - 2 
1990 VI = SQR(T/(2*RHO*A 
2000 KU = SQR(SQR 
. 5*(( AV/AEW VF/yii ) x 2 
2004 DL = GW ( N 2 /(2 * PIE 

2006 CL = 6 * CT/S 

2007 AR = R/C 

2008 BL = CT / S 

2009 IF B*C*R/S1 > 3.75 THEN COLOR 1,1,1:LOCATE 1,,,„. 
PR INT " ~W= BLDSTRK/ " : INPUT X4 : PRINT " ~C= ALL/ " : COLOR 15,1 
2020 ’ 

2030 ’ *** POWER CALCULATION *** 

2040 ’ 

2060 IF 
ELSE 
2070 PI 
2080 PQ 
* MU~2) 

2090 PP 
2100 PC 



>K 

iff! 



PA)~4 . 2561 

ELSE IF PA=4000 

: ’ lb-sec~2/ft~4 



/ B) 



VT~2 ) 

* GAP 

25 * ( ( AV/AE) * ( VF/VI ) ) 
R~2 ) 



'4 ) 



GE <= 2 THEN 



= T * V I 
= ( CDO * 



# 

B 



K 

# 



= VF' 
= (T 



3 

* 



» FF 
VV + 



PI = 

* KU 
C 

* RHO 
RHO * 



PGE * 

/ 550 
R * VT' 

/ 1100 
FF * 



1 ,0 



KU /55 0 
RHO / 2200 )*( 1+ 4.3 



VI 



K 



VV~3 ) / 1100 
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2105 FM = PI / (PI + PO) 

21 1 0 PT = PI + PO + PP + PC 
2120 RETURN 
2130 ’ 

2465 ’ *********** COMP WT RESULTS OUTPUT SUBR 

*************************** 

2468 ’ 



2469 LOCATE 2,47 : PRINT" * REVISED COMPONENT WT 

( 6 . 6 )" 

2470 LOCATE 4,47 : PRINT USING" 1. MAIN ROTORS 

U" ' Wfl NN 1 

2475 ’ ‘ ‘LOCATE ‘ 5.47 : ’ PRINT USING" 2. FUSELAGE 

jf " . 3 NN ) 

2480' 'LOCATE 6,47* PRINT USING" 3. LANDING GEAR 

##### • v/( 4 NN) 

2485 ’ 'L0CATE^ m 7 ,4^ ^ ’ PRINT USING" 4. ENGINE NACELLES 

2490' ^LOCATE ’ 8,4^^: PRINT USING" 5. ENGINES 

W 6 A(NN) 

2495 LOCATE 9,47 : PRINT USING" 6 . DRIVE TRAIN/XMSN 

titiuuu u ii. w6r^MN1 

2500 LOCATE ’ 1 0 , 47 : PRINT USING" 7. FUEL TANKS 

#####:#"; W 6 C ( NN ) 

2505 LOCATE 11,47: PRINT USING" 8 . FLIGHT CONTROLS 

ttttWft.ti"; W(7,NN) 

2510 LOCATE 12,47: PRINT USING" 9. AUX POWER (APU) 

'# ft" • w [8 NN ) 

251*5* LOCATE ’ 13,4-7: PRINT USING" 1 0 . INSTRUMENTS 

2520 ‘LOCATE 1 4 ! 47 : PRiNT USING" 11 . HYDRAULIC SYSTEM 

ft” . W i 0 NN ) 

2525 LOCATE ’ 15,47: PRINT USING"12. ELECTRICAL SYSTEM 

2530 LOCATE^^i , |7 : ^ PRIN 1 ^ USING" 13. AVIONICS 

2535* * LOCATE^ ^17^47: PRiNT USING"14. FURNISHINGS 

##### #" 1 W( 1 3 NNJ 

2540 * LOCATE 18!47: PRINi’ USING"15. AC / DE-ICE EQUIP 

##### #" • W( 1 4 NN ) 

2545 LOCATE’ 19,4-7: PRINT USING"16. LOAD HANDLING 

EQUIP.. #####.#"; W( 1 5 , NN 1 

2550 LOCATE 20,47: 

PRINT" " 

25||^I|g c ATE 2^46: PRINT USING"REVISED COMPONENT WEIGHT 

2560 RETURN 
gggc) END 

10 ’ PROGRAM TR7.BAS 19 SEPT 1987 

20 



***************************************************** 

30 ’ * *** RANGE AND ENDURANCE *** 

* 

40 

***************************************************** 

50 KEY OFF: PRINT " ~L=TANDEM7 / " : PRINT "~C=ALL/" 

60 COLOR 15,1 

70 DIM ANG( 200 ) : IF ENGN =0 THEN ENGN=2 ’FUEL=2400: 
PTCR= 1 800 : PTCRSP=1 890 : PTMIN=1 400 

80 ’ TASMINP=70 : TASCR=130: TASMX=150: 

PT( 70 ) = 1 400 : PT(80 )= 1500:PT(90)= 1 6 1 0 : PT( 1 00 ) = 

1 730: PT( 1 1 0 )= 1860 : PT( 1 20 )= 2050 : PT ( 1 30 ) = 2300 : PT ( 1 40 ) = 
2600: PT ( 150)= 3000 

90 ’ 

100 CLS 

110 LOCATE 1,27: PRINT" * RANGE and ENDURANCE * 

(Chap 7 } " 

120 PRINT" 
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1 . SFC ( lb/hr/shp ) 



2 . 



SHP 



ALTITUDE 



130 PRINT" 

FUEL FLOW (lb/hr)" 

140 PRINT" MILITARY: 

150 PRINT" NORMAL: 

160 PRINT" CRUISE: 

170 PRINT" 

180 PRINT" 3. SPECIFICATION CONDITIONS: 

= TEMP = " 

190 PRINT" ZERO HORSEPOWER INTERCEPT = " 

200 PRINT" m PHANTOM HORSEPOWER = " 

___________________________________ II 

220 PRINT" * MAX RANGE * ! 

* MAX ENDURANCE *" 

230 PRINT" 

240 PRINT" 

250 PRINT" 

260 PRINT" 

270 PRINT" ======== 



( spec ) 



GOSUB 450: 
GOSUB 1000 



GOSUB 500: GOSUB 600: GOSUB 
GOSUB 1100: GOSUB 1120: GOTO 



280 PRINT" « CRUISE PWR & FUEL FLOW: 

* TOTAL FUEL REQUIREMENTS *" 

290 PRINT" (ssl) 

300 PRINT" 

310 PRINT" 

320 PRINT" 

350 GOSUB 400: 

630 

360 GOSUB 800: 

1 200 
390 ’ 

400 ***** SFC INPUT SUBR 

*************************************************** 

401 ’ 

403 LOCATE 23,1: PRINT SPC( 77 ) : COLOR 14,1 

405 LOCATE 23,10: PRINT" 1. ENTER SPECIFIC FUEL 

CONSUMPTION FOR EACH POWER SETTING.": COLOR 15,1 

410 LOCATE 4,2 1 : PRINT" ": LOCATE 4,21. 

SFC( 1 } : IF SFC (1 ) = 0 THEN PRINT " ~W = DVN0 /": GOTO 

420 LC ' " 



CATE 



1 : PRINT" 



LOCATE 5,21 



IF SF6(2)=0 THEN PRINT"~W=DVN0/" :6oTO 420 



CATE 6,21: PRINT" 

IF SFC ( 3 ) = 0 THEN 



. LOCATE 6,21 : 
PRINT "~W=DVN0/" : GOTO 



SFC( 2 
430 L 
SFC ( 3 

445 RETURN 

449 ’ 

450 ’*** SHP 

a#################################### 

451 ’ , 

PRINT SPC( 77 ) : COLOR 14 

PRINT" 

COLOR 15,1 



iNPUT" 

410 

INPUT" 



INPUT" 

430 



453 LOCATE 23 , 1 
455 LOCATE 23,10 
POWER SETTING “ 
460 LOCATE 4,3 



RATING 



2. ENTER 



INPUT 



1 



IF SftP 
CATE 5,3 
IF SHP 
CATE 6.3 
IF SHP 




RINT" 

=0 THEN 
RINT" 

=0 THEN 
RINT" 

=0 THEN PRINT " ~W=DVN0 
PRINT SPC ( 77 ) 



PRINT" 

It 

PRINT" 

II 



LOCAT 
W=DVN0 
LOCAT 
W=DVN0 
LOCAT 



SHP( 1 
470 L( 

SHP( 2 
480 L( 

SHP( 3 

490 LOCATE 23, 

495 RETURN 

499 ’ 

500 ’*** COMPUTE & OUTPUT 

********************************* 

501 ’ 

505 FOR I = 1 TO 3 

510 WDOTF(I) = SFC(I) * SHP ( I ) * ENGN 

520 NEXT I 

530 LOCATE 4,53: PRINT USING" 

540 LOCATE 5,53: PRINT USING" 



RATE6 SHP 
4,37: 



SUBR 



FOR EACH 



, ^ , . INPUT" 
GOTO 460 
,37: INPUT" 

GOTO 470 
6,37: INPUT" 

GOTO 480 



FUEL 



FLOW 



. tiff" ; WDOTF( 1 ) 
. ttti" ; WDOTF( 2 ) 
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PRINT USING" #####.##" ;WD0TF(3) 
condition input 



iec 

*************** 



550 LOCATE 6,55: 

595 RETURN 

599 ’ 

600 ’*** S p 

*#**#******########* 

601 ’ 

603 LOCATE 23,1: PRINT SPC(77) : COLOR 14 

605 LOCATE 23,6: PRINT 3. ENTER 

CONDITIONS — NORMALLY 4000 ft MSL 95 
1 5,1 

610 LOCATE 8,49: 



subr 



1 

SPECIFICATION 
deg F" : COLOR 



PRINT" 

PRINT" 



ALT 

620 LOCATE 8,65: 

TEMP 
625 RETURN 

629 ’ 

630 ’*** compute & output 0 HP 
##*********### 

631 



LOCATE 8,49: 
LOCATE 8,65: 



INPUT" 

INPUT" 



interceptand phantom HP 




670 THETA (1 ) = 1 : THETA( 2 ) = ( 459 . 688+TEMP ) / 5 1 8 . 688 



680 



ALPHAH( I ^=ALPHAH*DEL 



FOR 



2 : 



690 FOR 1=1 TO 2 1 PF(I )=ALPHAH( I )/BET 



9 , 1 0 : F 

) + # 
10 , 10 : 



1 = 1 TO 

A( I )^SQR_CTHET;a1I^: NEXT I 

PRINT USING’'' " ZERO* HP INTERCEPT = 
+#### ,## ([spec ) " ; ALPHAH ( 1 ),ALPHAH(2l 
PRINT USING" PHANTOM HORSEPOWER = 
+####. tttt ( spec ) " ; PF( 1 ) , PF( 2 ) 



750 LOCATE 
+ ####. tt# jf s s 1 
760 LOCATE 
+ fssl) 

770 RETURN 

780 ’LOCATE 23,1: PRINT SPC(77): COLOR 14.1 

782 ’LOCATE 23,5: INPUT " ANY CHANGES ? (0=NO,1=YES) 

" , ANS 

785 ’ IF ANS = 0 THEN 800 ELSE IF ANS=1 THEN 790 ELSE 

BEEP: GOTO 798 

790 ’ LOCATE 23,38: INPUT"WHICH ITEM (1 thru 3) " , X7 

794 ’ ON X7 GOSUB 400,450,600 

798 ’GOTO 780 

799 ’ 

800 ’*** COMPUTE Range airspeed and power then output 
#***#*#****###**####* 

801 ’ 

805 PRINT " ~W=COMP/ " 

809 ANG( TASMINP- 1 0 ) = 999 

810 FOR I = TASMINP TO TASMX STEP 10 :’ change to step 

1 , ANG( 1-1 0) too ! ! 

820 PWR = PF( 1 ) + PTC I) : TAS( I ) = I 

830 ANG(I) = PWR /T AS ( I ) 

840 IF ANG(I) < ANG( 1-10) THEN 

RHPMXR= PWR : PTMXR= PWR-PF( 1 ) : TASMXR = TAS( I ) 

850 NEXT I 

860 FFMXR = RHPMXR * BETAH : PRINT " ~C=ALL/ " 

870 LOCATE 13,8 : PRINT USING" AIRSPEED = tititt 

k"ts M • TASMXR 

880 Locate 14,8 : print using" power = ###,### 

SH P M • PTMXR 

890 'LOCATE 15,8 : PRINT USINC’FUEL FLOW = tiff # , ### 

lb /hr"; FFMXR 

900 ’*** COMPUTE MAX Endurance fuel flow, A/S and P 

from HSE program **** 

910 RHPMXE = PF(1) + PTMIN : FFMXE = RHPMXE * BETAH 

PRINT USING" AIRSPEED = 



920 LOCATE 13,48 
kts" : TASMINP 

930 Locate 14,48 : print using" power 

SHP M • PTMIN 

940 'LOCATE 15,48 : PRINT USING"FUEL FLOW = 

lb/hr" ; FFMXE 



ana 
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pwr and fuel flow 



FFCRSP = RHPCR(2) * 



###,### 
###,### 

fuel reqmnt 



950 ’ 

1000 ’*** COMPUTE SPEC cruise 
############*#**#*##*###*### 

1001 ’ , x 

1010 RHPCR( 1 ) = PF( 1 ) + PTCR : FFCR = RHPCR(I) * BETAH 

1020 RHPCR( 2 ) = PF(2) + PTCRSP 

BETAH 

1030 LOCATE 18,29: PRINT USING"### kts":TASCR 

1040 LOCATE 20,3: PRINT USING"###,### SftP 

gj^pn . PTCR PTCRSP 

1050'lOCAt 8 21,3: PRINT USING"###,### lb/hr 

lb/hr ": FFCR, FFCRSP 
1 060 RETURN 
1 090 ’ 

1100 ’*** input max range for total 
*#*##########>####### 

1101 ’ 

1103 LOCATE 23,1: PRINT SPC(77): COLOR 14,1 

1105 LOCATE 23,10: PRINT'H. ENTER SPECIFICATION MAX 

RANGE IN NAUTICAL MILES !": COLOR 15,1 

1108 LOCATE 19,42: PRINT SPCJ36) 

1110 LOCATE 19,43: INPUT"4. SPEC MAX RANGE ( NM ) = ",MXR 

1115 RETURN 

1119 ’ 

1120 >##* compute total fuel required 

###########*#####*##>#########**# 

1121 ’ 

1125 TIME = MXR/TASCR 

1 1 30 TFUEL= ( . 1 * BETAH * ( SHP( 2 )+PF( 1 ) ) ) + 

( . 25 *RHPMXE* BETAH ) + (T I ME* FFCRSP ) 

^|0^^CATE m 20^43£ PRINT USING" TOTAL FUEL REQUIRED = 

^|6^^gCATE M ’ 2^43 : PRINT USINC'DESIGN FUEL CAPACITY = 

115^ FUELDIF ’= ABSCTFUEL - FUEL) 

1160 IF TFUEL < FUEL THEN 1165 ELSE 1170 

1165 LOCATE 22,48: PRINT USING" EXCESS FUEL = 

###,### lbs " ; FUELDIF : GOTO 1180 

1170 LOCATE 22,48: PRINT USINC'FUEL DEFICIENCY = 

###,### lbs " ; FUELDIF 

1175 LOCATE 1,1,0: ’ PRINT "~W=FUELQU AN/ " 

1 1 80 RETURN 
1190 ’ 

1200 >*** input changes 

############**####################>########## 



1 201 ’ 

1205 LOCATE 23,1: PRINT SPC(77): COLOR 14,1 

1210 LOCATE 23,5: INPUT " ANY CHANGES *? (0 = NO,1=YES) 

" . ANS 

1220 IF ANS= 0 THEN 1300 ELSE IF ANS= 1 THEN 1230 ELSE 
BEEP: GOTO 1200 

1230 LOCATE 23,38: INPUT"WHICH ITEM (1 thru 4) ",X7 

1235 IF X7 < 1 OR X7 > 4 THEN GOSUB 8000 :GOTO 1230 

1240 COLOR 15,1: ON X7 GOSUB 400,450,600,1100 

1250 GOSUB 500: GOSUB 630: GOSUB 800: GOSUB 1000: 

GOSUB 1 1 20 

1280 GOTO 1200 

1 290 ’ 

1300 LOCATE 23,1: PRINT SPC(77): COLOR 14,1 

1305 LOCATE 23 , 1 3 : INPUT"press < Shi f t - Pr tSc > for hard 

copy, ENTER to continue", X5 

1310 COLOR 15,1 : GOTO 9000 

8000 LOCATE 1,1,0: PRINT " ~W=TRYAGAIN/ " : LOCATE 23,1: 

PRINT SPC( 77 ) : RETURN 

9000 CLS : PRINT " ~W=LOADNOTE/ " : CHAIN " TR 1 ALL 
9999 END 
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